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SECTION  1 


INTRODUCTION  AND  OVERVIEW 


The  Natural  Background  Radiation  (NRR)  Module  is  defined  to  be  a 
computer  program  which  integrates  nine  ROSCOE-1R  models  (see  Table  1-1)  into  a 
consistent,  stand-alone  module  for  the  purpose  of  developing  and  testing  the 
capability  to  compute  the  natural  upwelling  spectral  radiance  as  o  function  of 
altitude.  The  relationships  of  the  routines  in  the  NBR  Module  should  be 
similar  to  the  relationships  of  the  routines  in  the  ROSCOE-IR  Program  except 
for  its  use  of  overlays  and  a  broader  use  of  the  GRC  Dynamic  Storage  Alloca¬ 
tion  (DSA)  System  [SP-78]. 

The  upwelling  radiance  will  normally  be  a  function  of  direction; 
however,  for  the  anticipated  applications  it  is  expected  that  a  spatially- 
averaged  value  will  be  adequate.  (If  later  studies  show  that  direction- 
dependent  values  are  required,  relatively  minor  code  changes  can  be  made  to 
retrieve  the  more  detailed  information  now  generated  to  derive  the  spatially- 
averaged  value. ) 


Computation  of  the  upwelling  radiance  may  be  described  with  the  aid 
of  Figure  1-1.  Point  V  is  at  altitude  z  above  a  selected  reference  origin. 


Table  1-1.  Models  Integrated  into  the  NBR  Module. 


Title 


Ambient  Atmosphere 
Atmospheric  Aerosols 
Natural  Clouds 
Atmospheric  Thermal  Emission 
Molecular  Transmittance 
Earth  Surface  Character!' zation 
Earth  Surface  Radiance 
Upwell ing  Natural  Radiation 
Solar  Radiation 


Model 

Number 

Devel oper 

ROSCOE  Manual 
Vol ume  Number 

la 

SAI/LJ 

U 

t — i 

1 

•o 

lc, 19:1c 

VI 

25 

Id, 19: 1 d 

SAI/PA 

24 

20  b 

GET 

28,31 

24d 

GET 

28,31 

23a 

SAI/LJ 

27, Sect. 2, 3 

23b 

SAI/LJ 

27, Sect. 5 

23c 

SAI/LJ 

27  .Sect. 6 

23e 

SAI/LJ 

27, Sect. 4 
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Figure  1—1 .  Geometry  to  illustrate  the  computation  of  upwelling  natural  radiation  for  one  viewing 
direction  VP. 

V.  For  a  (fictitious)  detector  at  Point  V  viewing  in  the  direction  of  Point 
P  on  the  ground,  the  processes  we  include  in  computing  the  radiance  in  the 
direction  of  PV  may  be  separated  into  two  cases: 

A.  No  Clouds 

1.  Air  emission  between  V  and  P,  attenuated  by  molecules  and 
aerosols. 

2.  Surface  emission  at  Point  P  (from  any  of  the  seven  modeled  sur¬ 
face  materials),  attenuated  by  molecules  and  aerosols  along  PV. 


3.  Surface-reflected  solar  radiation,  attenuated  by  molecules  and 
aerosols  along  the  total  path  (SP  +  PV). 

B.  With  Clouds 

(Highest  cloud  tops  are  at  or  below  Point  C  at  12-km  altitude.  The 

first  three  processes  below  are  weighted  by  the  probability  the  line- 

of- sight  along  VC  intercepts  clouds.) 

1.  Air  emission  between  V  and  C,  attenuated  by  molecules  and 
aerosols. 

2.  Surface  emission  from  cloud  tops  at  or  below  12  km,  attenuated  by 
molecules  and  aerosols  along  CV. 

3.  Cl oud-refl ected  solar  radiation,  attenuated  by  molecules  and 
aerosols  along  the  total  path  (SC  +  CV). 

4.  Processes  1  and  2  from  the  no-cloud  case,  weighted  by  the  prob¬ 
ability  of  a  one-leg  cloud-free  1 ine-of-sight  along  VP. 

5.  Process  3  from  the  no-cloud  case,  weighted  by  the  probability  of 
a  two- leg  cloud- free  path  along  the  broken  path  (VP  +  PS). 

In  view  of  the  above-listed  contributions  to  the  radiance,  it  is  easy 
to  recognize  the  need  for  integrating  so  many  models  into  the  NBR  Module. 

Five  of  these  models,  as  indicated  in  Table  1-1,  have  been  reported  in  other 
volumes.  The  remaining  four  models  are  documented  in  this  volume.  To  this 
documentation  we  first  provide  an  overall  guide,  followed  by  more  detailed 
descriptions. 

The  Earth  Surface  Characterization  Model  is  described  in  Sections  2 
and  3.  Section  2  contains  general  information  and  details  for  non-water  sur¬ 
faces;  the  details  for  water  surfaces  are  given  in  Section  3.  The  Solar  Radia¬ 
tion  Model  is  described  in  Section  4  and  the  Earth  Surface  Radiance  Model  in 
Section  5.  In  terms  of  such  models,  the  Upwelling  Natural  Radiation  Model  is 
presented  in  Section  6  and  overall  coding  information  for  the  stand-alone  NBR 
Module  in  Section  7. 

In  Sections  2  and  3  we  present  the  ROSCOE-IR  model  (23a)  for  the 
Earth  surface  characterization,  in  the  spectral  range  from  Z  to  5  ™  (or  5,000 
to  2,000  cm  ").  The  principal  routine  in  the  model  is  Subroutine  ESURF  which 
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(with  auxiliary  routines  for  water  surfaces)  provides  the  (1)  monochromatic 
bidirectional  reflectance-distribution  function  (BRDF),  monochromatic  direc¬ 
tional  emissivity ,  and  (3)  temperature  of  the  Earth's  surface  at  the  inter¬ 
section  point  of  the  optical  line-of-sight.  Since  the  surface  category  is  not 
automatically  correlated  with  the  geographic  position,  the  user  must  select 
one  of  the  seven  categories  provided  plus  an  associated  descriptor  where  appro¬ 
priate:  (1)  Lambertian  surface  (and  diffuse  reflectance),  (2)  water  (and  wind 
speed),  (3)  snow  (and  its  age-parameter),  (4)  sand,  (5)  soil,  (6)  foliage,  and 
(7)  urban  material  (and  degree-of-urbanization  parameter).  The  user  calls 
Subroutine  ESURF  with  the  zenith  angle  of  the  solar  ray  at  the  intersection 
point,  the  direction  of  the  detector  at  the  intersection  point  (specified  by 
the  zenith  angle  and  the  azimuth  angle  relative  to  the  principal  plane  of  the 
solar  ray),  the  altitude  at  the  intersection  point,  the  surface  material  (and 
associated  descriptor)  at  the  intersection  point,  and  the  wavelength. 

The  BROF  for  each  of  the  surfaces  (except  water)  is  computed  from  an 
invented  analytic  expression  containing  spectral  and  directional  parameters 
which  have  been  fitted  to  the  (meager)  available  data,  presented  in  Section  2. 
Also  presented  are  derivations  of  directional-hemispherical  reflectance  from 
the  BRDF  and  the  directional  emissivity. 

For  a  water  surface,  Subroutine  ESURF  calls  Subroutine  GLITTR  to 
obtain  the  BRDF  and  directional  emissivity.  Subroutine  GLITTR,  its  auxiliary 
routines,  and  the  underlying  model  for  the  glitter  from  a  wind- ruffled  water 
surface  are  described  in  Section  3.  The  model  is  based  largely  on  the  work  of 
Cox  and  Hunk  [CM-54],  including  (1)  the  basic  equation  relating  the  glitter 
radiance  to  the  wave-facet  slope-probability  distribution,  (2)  a  two-dimen¬ 
sional  isotropic  normal  distribution  for  the  slope-probability  distribution, 
and  (3)  a  linear  relation  between  the  slope  variance  and  the  wind  speed. 
Modifications  and  extensions  of  the  Cox-Munk  work  include  (I)  using  the 
Levanon-derived  [Le-71b]  equations  for  the  slope  and  angle  of  incidence  re¬ 
quired  at  a  viewed  point  to  provide  a  glint,  in  terms  of  the  position  of  an 
arbitrary-altitude  detector  viewing  a  spherical  Earth,  instead  of  the  equa¬ 
tions  for  a  flat  Earth  as  (appropriately)  used  by  Cox  and  Munk,  (2)  evaluating 
the  Fresnel  equations  for  the  specular  reflectance  in  terms  of  the  complex 
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index  of  refraction  of  water  for  the  2-  to  5-um  region,  instead  of  the  visible 
region,  (3)  incorporating  a  shadowing  factor  (based  on  the  work  of  Saunders 
[Sa-67,  Sa-67a,  Sa-68c]  but  extended  to  permit  a  "bistatic"  dependence  on  the 
zenith  angles  of  both  the  incoming  and  outgoing  rays)  which  multiplies  the 
slope  probability  distribution  and  takes  account  of  shadowing  of  some  slopes 
by  others  for  illuminating  and  viewing  near  the  horizon,  and  (4)  providing  a 
solution  (by  iteration)  for  the  location  of  the  specular  reflectance  point  on 
a  spherical -Earth  water  surface  that  is  smooth  for  zero  wind  speed.  The  direc¬ 
tional  emissivity  of  the  wind-ruffled  water  surface  is  approximated  by  that 
for  a  smooth  water  surface  owing  to  the  complex  geometry  which  prevents  analy¬ 
tically  integrating  the  BRDF  over  a  hemisphere. 

In  Section  4  we  present  the  ROSCOE-IR  model  (23e)  for  the  solar  spec¬ 
tral  irradiance  at  the  top  of  the  atmosphere,  in  the  spectral  range  from  2  to 
5  urn.  The  input  data  to  the  model  ,  taken  to  be  the  NASA  data  adopted  by  the 
-American  Society  of  Testing  and  Materials,  have  been  fitted  by  piecewise- 
continuous  power- law  expressions.  The  model  may  be  called  with  either  wave¬ 
length  (urn)  or  wavenumber  ( cm' * )  and  an  index  which  selects  the  output  spec¬ 
tral  irradiance  in  any  of  four  forms.  Therein  are  presented  derivations  and  a 
flow  o  gram  of  Subroutine  SOLRAD. 

In  Section  5  we  present  the  ROSCOE-IR  model  (23b)  for  the  Earth  sui - 
face  radiance.  The  model  provides  two  components  of  the  radiance  directed 
along  the  path  PV  in  Figure  1-1:  (1)  thermal  radiation  emitted  at  Point  P  and 

(2)  solar  radiation  reflected  at  Point  P.  Strictly,  the  surface-reflected 
solar  radiation  is  actually  provided  in  an  unattenuated  form  with  the  path 
parameters  required  as  part  of  the  input  to  a  later  computation  of  the  molecu¬ 
lar  absorption  over  the  total  two- leg  path  ($P  +  PV).  The  aerosol  transmit¬ 
tance  along  the  incoming  path  SP  is  also  provided.  The  principal  routine  in 
the  model.  Subroutine  SURRAD,  and  its  auxiliary  geometry  routine  (Subroutine 
RINOUT)  are  described,  including  derivations  of  the  zenith  angle  of  the  sun 
(?s),  zenith  angle  of  the  detector  (-jj),  and  azimuth  angle  of  the  solar  ray 
reflected  toward  the  detector  (’V).  We  also  provide  detailed  sunmaries  of  the 
inputs  and  outputs  for  the  routines  developed  by  other  organizations  (G.E. 

Tempo  and  Visidyne,  Inc.)  which  we  use  to  complete  the  model. 
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Subroutine  SURRAO  also  provides  for  natural  clouds  if  they  are  in¬ 
cluded  in  the  calculation.  While  clouds  are  not  strictly  an  Earth-surface 
feature,  the  treatment  of  the  two  components  of  the  radiance  along  the  path  CV 
in  Figure  1-1,  resulting  from  cloud  tops  (the  highest  of  which  is  12  km  in  the 
Natural  Cloud  Model  and  shown  as  Point  C  in  Figure  1-1),  is  analogous  to  that 
for  Point  P  and  thus  is  appropriately  included. 

The  ROSCOE-IR  model  (23e)  for  the  upwelling  natural  radiation  is 
presented  in  Section  6.  This  model  evaluates  the  mean  upwelling  spectral 
radiance  at  Point  V  (in  Figure  1-1)  by  averaging  the  radiance  over  the  solid 
angle  (fly)  defined  by  the  cone  with  vertex  at  Point  V  and  tangent  to  the 
Earth's  surface.  In  practice,  we  average  the  set  of  radiances  received  at 
Point  V  by  viewing  (in  the  absence  of  clouds)  a  set  of  characteristic  Points  P 
on  the  Earth's  surface  and  within  fly.  The  Points  P  are  selected  in  terms  of  a 
set  of  angles  (&)  measured  from  the  nadir  and  a  set  of  azimuth  angles  (*)  for 
each  nadir  angle.  The  results  from  the  Earth  Surface  Radiance  Model  for  each 
Point  P  are  augmented  by  computing  (1)  the  air  emission  along  the  path  PV.  (?) 
the  molecular  path  parameters  along  PV,  (3)  the  total  path  parameters  along 
(SP  +  PV)  by  adding  those  for  SP  and  PV,  (4)  the  molecular  transmittance  for 
the  path  PV  and  for  the  total  path  (SP  +  PV),  and  (5)  the  aerosol  transmit¬ 
tance  for  the  path  PV  and  the  total  path  (SP  +  PV). 

The  inclusion  of  the  statistical  submodel  of  the  Natural  Cloud  Model 
complicates  the  modeling.  Now,  for  each  Point  C  there  is  a  distribution  of 
radiance  values  corresponding  to  the  159  sets  of  three-layer  cloud  configura¬ 
tions.  Details  are  given  in  Section  6. 

The  principal  routine  in  the  Upwelling  Natural  Radiation  Model  is 
Subroutine  UPWELL;  it  is  lengthly,  with  20  pages  cf  FORTRAN.  In  Section  6  we 
present  formulas  for  the  geometry  involved,  the  radiance  computed,  a  detailed 
summary  of  the  calcul ational  steps,  and  a  detailed  suninary  of  the  input  and 
output  variables. 

In  Section  6  we  also  provide  detailed  summaries  of  the  input  and 
output  variables  for  all  the  auxiliary  routines  which  are  called  by  Subroutine 
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UPWELL  but  which  are  not  so  documented  elsewhere.  These  routines  include  a 
number  prepared  by  SAI  and  three  important  ones  (Subroutines  TRNSCO,  ATMRAD, 
and  TRANS)  prepared  by  G.E.  Tempo. 

In  Section  7  we  provide  general  coding  information  for  the  NBR 
Module,  including  that  required  for  the  stand-alone  version.  We  identify  all 
of  the  (66  non-DSA)  routines  in  the  NBR  Module  and  provide  a  chart  showing 
their  calling-structure  relationships.  For  each  of  these  routines  we  also 
state  (1)  the  function  it  performs,  (2)  its  originator,  (3)  the  location  of  a 
listing  of  the  routine,  and  (for  27  routines)  (4)  the  number  of  the  table  in 
this  volume  which  states  in  detail  the  inputs  and  outputs  of  the  routine.  For 
common  blocks  we  provide  (1)  a  matrix  showing  routines  and  the  35  common 
blocks  appearing  in  them  and  (2)  either  definitions  of  all  the  variables  in 
the  comnon  block  and  where  the  variable1;  are  set  or  a  specific  reference  where 
the  definitions  are  given. 

The  NBR  Module  in  its  stand-alone  version  is  driven  by  Program  DRVUPW 
(II  pages  of  FORTRAN).  For  this  program  we  describe  in  Section  7  the  calcula- 
tional  steps  required  in  both  the  initialization  and  operation  phases.  During 
the  initialization,  calls  are  made  to  QINITL  (for  the  DSA  routines),  ATMOSt) 
(for  the  ambient  atmosphere  depending  on  time  and  location),  CLOUDO  (for  cloud 
properties),  TRANSB  (for  molecular  band-model  parameters  for  transmittance), 
and  SHELLS  (for  atmospheric  grid).  During  operation,  calls  are  made  to  SETALT 
(to  determine  the  altitudes  (depending  on  wavelengths  of  interest)  at  which 
Subroutine  UPWELL  is  to  compute  the  upwelling  natural  background  radiation) 
and  UPWELL.  Our  development  of  Subroutine  SETALT  is  described.  Summaries  of 
Input  and  output  variables  are  provided  for  Subroutine  SETALT  and  the  G.E. 
Tempo  routines  TRANSB  and  SHELLS. 

Finally,  in  Section  7,  we  provide  some  comments  on  the  integration  of 
the  NBR  Module  into  ROSCOE-IR,  including  some  of  the  differences  between  the 
stand-alone  version  and  that  in  R0SCQE-1R.  In  particular,  we  summarize  the 
inputs  and  outputs  of  Subroutine  UPWELT,  prepared  by  GRC,  to  select  the  appro¬ 
priate  wavenumber  interval  and  to  interpolate  in  altitude  the  upwelling 
natural  radiation  array. 
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In  Section  8  we  provide  a  listing  of  those  (37)  routines  in  the  NBR 
Module  which  are  not  listed  elsewhere  (at  least  not  as  we  are  using  them). 
These  include  19  SAI  routines,  17  G.E.  Tempo  routines,  and  1  Visidyne,  Inc. 
routine. 
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SECTION  2 


EARTH  SURFACE  CHARACTERIZATION:  GENERAL  AND  NON-WATER  SURFACES 


2-1  INTRODUCTION  AND  SUMMARY 


2-1.1  Requirements  for  the  Model 

The  characterization  of  the  Earth's  surface  is  required  for  input  to 
the  Earth  Surface  Radiance  Model  (23b)  and  the  Upselling  Natural  Radiation 
Model  (23c)  via  Model  23b.  For  the  Earth  Surface  Radiance  Model,  Model  23a  is 
required  to  provide  the  reflectance,  emittance,  and  temperature  of  the  Earth's 
surface  at  the  point  (P)  where  the  optical  line-cf-sight  intersects  the 
Earth’s  surface,  including  directional  effects  as  necessary.  For  the  Upwel- 
ling  Natural  Radiation  Model,  Model  23a  is  required  to  provide  the  average 
characteristics  (i.e.,  reflectance,  emittar.ee,  and  temperature)  of  that  por¬ 
tion  of  the  Earth's  surface  that  could  be  viewed  from  an  altitude  of  interest. 

2-1.2  Approach 

The  reflectance  and  emittance  properties  of  the  Earth's  surface  are 
controlled  mainly  by  composition  and  to  a  lesser  extent  by  surface  roughness. 
Since  the  composition  and  roughness  of  the  Earth's  surface  can  vary  markedly 
from  point  to  point,  so  can  its  optical  properties.  A  useful  sugary  of  the 
reflectance  data  for  the  Earth's  surface  features  was  prepared  by  Bartman  in 
his  thesis  [Ba-67b];  this  summary  has  been  reproduced  by  Kondratyev  [Ko-72d] 
and  is  shown  here  as  Table  2-1.  This  table  is  of  general  interest  for  us  even 
though  Bartman  and  Kondratyev  were  mainly  interested  in  the  Earth's  total 
albedo  for  solar  radiation  and  hence  emphasized  the  visible  soectral  region. 

It  has  been  agreed  to  represent  the  Earth's  surface  in  a  relatively 
simple  way,  yet  one  which  provides  a  range  of  reflectance,  emittance,  and 
temperature  values,  the  general  procedure  is  to  provide  for  six  categories  of 
the  Earth's  surface:  water,  snow,  sand,  soil,  foliage,  and  urban  material. 
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Table  2-1.  Summary  of  reflectance  data  for  the  Earth’s  surface  features. 

(Reproduced  from  Ko-72d;  originally  prepared  by  Bartntan  [Ba-67b].l 


Surfm'f 

SpeCirai  churacttttinei 

a#r Jiiirittuiurn  .>/  retire* j* ire 

r>M/  retire nee 

1  Soils  and  rocks 

•  J.  Increasing  to  t  micron 

•  2.  Decreasing  abuse  2  microns 

3.  Moisture  decreases  reflectance  , 

1 .  Backscatierme  and  forward 
scattering 

2.  Sand  has  Urge  forward 
scattering 

3.  Loam  has  small  forward 
scattering 

1 

2 .  Mmsture  decreases  reflectance 
by  5-20% 

3.  Smooth  su.'-ces  have  higher 
rc flee  id  nee 

■1.  Diurnal  sanation,  maximum 
reflectance  for  small  angles 

j  Vegetation 

i 

i 

i 

i 

,  1.  Small  (below  0.5  micron* 

2.  -V  small  maximum  bump  at 

0.5  to  0.55  micron 

3.  Chlorophyll  absorption  at 

s  0  micron 

)  ■*.  Sharp  increase  at  0."  micron 
‘  5.  Decrease  above  2  macrons 
:  6.  Depends  on  growing  season 

1  Backscattermg 

2-  Small  forward  scattering 

1  5—25* * 

2  Diurnal  effects,  maximum  re¬ 
flectance  ’’or  ’-mall  angles 

,  3.  Marked  annual  .ana lion 

Water  basins 

i  l.  Maximum  at  0. 5-0.7  micron 

2.  Depends  on  turbidity  and 
waves 

f 

i 

l .  Large  back  and  forward 
scattering 

1 .  Small  reflectance 

2.  Diurnal  variation  maximum 
for  small  sun  angles 

3.  Depends  on  turbidity  and 

wa.es 

■  Snow  and  ice 

i 

\.  Decreases  slightly  with 
increasing  wjve-lcngm 

2.  Large  variability  dercrujing  on 
’  purity,  wetness,  pny  steal  con¬ 

dition 

1.  Diffuse  component  plus 
mirror  component 

2.  Mirror  component  incrcu *es 
with  increasing  angle  of  in¬ 
cidence 

:  1  Variable.  25 -SO*. 

2  m  Antarctic 

.  )  -a**  Ross  Sea  tee 

a  ?0-a0*.  '/hue  Sea  ice 

For  each  category  the  reflectance  and  emittance  have  been  chosen  to  be  repre¬ 
sentative  of  the  average  value  for  that  category.  The  chosen  values  are  based 
on  those  we  have  been  able  to  find  in  the  literature  so  far;  one  should  re¬ 
main  alert  to  possibly  finding  improved  values.  There  is  no  automatic  correla 
tion  between  geographic  position  and  surface  category.  However,  the  user 
could,  in  principle,  place  different  surfaces  as  he  desires  in  a  given  scene 
when  he  wants  to  address  surface  boundary  problems,  but  the  necessary  coding 
has  not  been  implemented.  For  test  and  possibly  other  purposes,  we  also  pro¬ 
vide  for  a  Lambertian  surface  with  a  user-defined  value  of  the  diffuse  reflec¬ 
tance  . 

^  review  of  the  literature  has  convinced  the  writer  that  m'St  materi¬ 
als  have  a  strong  non-diffuse  character.  To  take  account  of  the  non-diffuse- 
ness,  we  postulate  a  general  expression  for  the  bidirectional  reflectance- 
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distribution  function  (frequently  referred  to  as  BRDF)  with  several  parameters 
that  are  evaluated  on  the  basis  of  whatever  experiemental  data  are  available. 
(The  reader  unfamiliar  with  the  quantity  we  call  the  BRDF  -  which  has  many 
aliases,  including  partial  reflectance  or  refl ectance-distribution  function  - 
may  want  to  refer  to  the  discussions  by  Wolfe  [Wo-65a,  pp.  23-28]  or  by  Nico- 
demus  [N i - 65c ,  Ni-70d,  Ri-76].) 

Having  determined  the  BRDF  for  a  material,  one  can  then  integrate  the 
BRDF  over  a  hemisphere  to  obtain  the  directional-hemispherical  reflectance 
(which  is  equal  to  the  hemispherical-directional  reflectance)  and  thus  obtain 
the  directional  emissivity  for  the  material  by  applying  Kirchhoff's  law  [Ni- 
70d], 


2-1.3  The  Bidirectional  Reflectance-Distribution  Function  (BRDF) 

We  follow  the  recommendation  of  Hicodemus  [Ni-70d]  and  use  the  symbol 
f  to  represent  the  BRDF,  which  has  the  units  of  sr  The  general  form  we  pro¬ 
pose  for  the  BRDF  is 

”  1 

fr  5  fr[m,  0{m) ,  ^  ?r,  v]  ,  m  >  2 

=  DomU)  -1  +  *mU1  exp{-,m[(cos  e.)  61  *  (cos  e,.)  m 

♦  Sm(l-il-2./M  )]!(,  sr'1  (1) 


where 


=  yo)  -  [RJO)  -  Rm(-)]W.  . 


For  the  Lambertian  surface  (m=l),  the  BRDF  is  a  constant,  given  by 


f  =  » 
r  ol 


( 1  ‘  ) 
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wi  th 


R^o)  =  a1(-l  =  o 


<  2  1 ) 


In  Equation 
m 

O(m)  - 


\ 

G  • 
T 


if 


(1),  the  symbols  have  the  following  meanings. 

Index  for  category  of  surface  material. 

Additional  descriptor  available  for  the  mth  material,  if  needed. 
For  brevity,  we  will  frequently  suppress  D(m)  as  an  explicit 
argument. 

Wavelength  Uni). 

Zenith  angle  of  sun  at  intersection  point  (R). 

Zenith  angle  of  detector  at  intersection  point  (P), 

Azimuth  angle  (at  intersection  point  ( P > >  of  vertical  plane 
through  1  ine-of-sight,  measured  relative  to  the  solar  principal 
plane  (i.e.,  vertical  plane  through  the  source  ray).  Values  of 
zero  and  *  for  *  correspond  to  forward  and  backward  scattering, 
respectively. 


There  are  six  parameters  -  e^U),  RjO),  RmU),  am,  a^d  - 
characteri zi ng  a  material,  according  to  our  Equation  (1).  Note  that  all  of 
the  spectral  dependence  of  the  reflectance  is  contained  in  the  parameter 
o^U),  which  has  no  directional  dependence;  i.e.,  we  assume  that  the  spectral 
and  directional  properties  are  separable.  The  parameters  2^(0)  and  R^U ) , 
together  with  and  vm,  control  the  forward  and  backward  reflection  in  the 
principal  plane;  the  parameter  controls  the  scattering  away  from  the  princi¬ 
pal  plane. 


In  addition  to  the  separability  of  the  spectral  and  directional  pro¬ 
perties,  our  expression  for  the  BRQF  has  two  other  important  properties.  The 
more  important  of  these  is  that  Equation  (1)  satisfies  the  Helmholtz  reciproc¬ 
ity  theorem  [Ni-55c]  according  to  which  f  must  be  invariant  to  an  interchange 
of  the  incident  and  reflected  rays.  The  third  principal  property  of  Equation 
(1)  is  that  is  integrable  over  a  hemisphere  provided  ^  equals  1  or  2. 
Whereas  we  have  imposed  this  restriction  in  the  dete-mi nation  of  the  other 
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parameters,  we  recognize  in  retrospect  that  this  requirement  could  probably  be 
relaxed  for  practical  applications  in  which  the  quality  of  the  fits  to  experi¬ 
mental  data  might  be  improved  if  y  had  other  values.  We  do  not  claim  unique¬ 
ness  for  Equation  (1),  but  it  is  the  only  expression  of  its  kind  of  which  we 
are  aware.  Further  thought  -  with  more  trials  and  errors  -  may  lead  to  a 
better  expression. 


Finally,  we  mention  an  odd  property  of  our  BRDF  which  is  not  of  much 
practical  consequence  but  which  may  be  a  small  wonderment.  This  property  >s 
that,  for  9^  =  9r  =  0  (i.e.,  normal  incidence  and  reflection),  fr  as  given  by 
Equation  (1)  is  multivalued  in  that  it  depends  on  the  value  of  1*.  Of  course, 
physically  we  expect  a  single  value.  Our  practical  solution  to  this  problem, 
for  6 ^  =  e  -  0,  is  simply  to  define  fp  to  be  the  value  obtained  by  averaging 
f  (0,0,*)  ,'ver  * ,  i.e.. 


r I  6 i  =  6r  =  0  ' 


<fr(0,0,*)>  . 


(3) 


From  the  integrations  presented  in  Section  2-4  we  show  that 


13a) 


where 

*m  =  tRm(0)  +  V^/2 
1 

Pj(a)  =  J'  dxe  ax  =  ^  il-e  a)  . 
o 

2-1. ^  The  Oi rectional -Hemispherical  Reflectance 

The  spectral ,  directional-hemispherical  reflectance,  denoted  here  by 
PmU;e  .,2n ) ,  is  defined  [Ni-65c,  Wo-65a]  by  the  Integral 


(4a) 

(4b) 
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(5) 


pm(x;e.,2,)  =  yvr 


cos  e„  dn. 


where 


dn  =  sin  e  de  . 
r  r  r  r 


(5a) 


In  Section  2-4  we  show  that  the  result  of  the  integration,  when  Equation  (1) 
is  used  for  f  is 


(6) 


wi  th 


^WVV  =  1  +  2  Pl(V‘m)  P2.  (am)RmFYm(am*ei> 

m  m 


1 


P21( a)  = 


/ 


dxxe'ax  =  4  [1  -  e'd(fl+1^ 
sr 


P22(a)  = 


/ 


-ax  I  ,,  -ax 
dxxe  =  'I  -  e  ' 


(7) 

(8) 


(9) 


■y 

F  (a, a)  =  exp[-a(cos  e)  m],  (10) 

For  a  Lambertian  surface  (m=i), 

o X ; 0 ,2n )  =  uc>0^(x)  .  ( 6  1 ) 

If  the  Spectral  directional -hemispherical  reflectance.  o_(\;0.,2n), 

*  Ml  I 

for  a  material  is  known  from  experiment  for  at  least  one  value  of  e ^  and  if 
the  five  directional  parameters  ™  ,  Bm»  vm>  Rm(0),  and  are  known>  then 
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our  spectral  parameter  <>omU)  in  Equation  (1)  can  be  determined  from  Equation 
(6)  evaluated  at  the  given  e,.  In  practice,  the  directional -hemispherical 
reflectance  is  frequently  measured  for  a  direction  at  or  near  normal  inci¬ 
dence.  In  this  case,  for  at  least  the  materials  we  have  examined,  the  quan- 
tity  G(am,6m,vm;8i.=0)  -  which  is  a  measure  of  the  departure  of  the  BRDF  from  a 
constant,  as  it  would  be  for  a  diffuse  reflector  -  differs  from  unity  by  only 
a  few  percent  (9.5%  in  one  case).  Thus,  in  practice,  it  would  be  a  good  ap¬ 
proximation  to  simply  evaluate  o^tx)  by  the  relation 

pQn,(  *)  ~  1,1  pm(^e1-=°,2i')  (ID 

however,  for  self-consistency,  to  get  p^U)  we  have  used  Equation  (6)  evalu¬ 
ated  at  e.=0  with  om(x;a .=o,2»)  given  by  (meager)  experimental  data,  i.e.,  we 
have  used 


o  U;e  .0,2*) 

-’on,'1'  ■  .TTTvr-v^^r  •  "  i  2 


2-1.5  The  Directional  Emissivity 


(5  1 ' ) 


The  directional  emissivity,  e^,  for  material  m,  at  a  zenith  angle  e, 
is  [Ni-65c,  Ni-70d] 


r  1  1  "■ 

i  ed  5  E(j(m)x>9)  =  1-Pm(x;e,2n) 


(12) 


where  the  directional-hemispherical  reflectance  pm(x;0,2n)  is  given  by  Equa¬ 
tion  (5)  in  general  and  by  Equation  (6)  when  our  f  (Equation  (1))  is  used  in 
Equation  (5).  For  a  Lambertian  surface  (m=l). 


£^(1,1,8)  =  1-pjU;8,2w)  =  l-*o0^U) 


(12') 


For  urban  m  it. rial  (m=7),  see  Section  2-3. 5. 2  for  the  special  form  appropriate 
for  urban  geometry. 
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2-1.6  Summary  of  Parameters  for  the  BRDF 


A  perusal  of  the  literature,  including  the  putative  extensive  MAS  A 
data  base  [LE-71a,  LE-72c],  has  so  far  revealed  very  few  photometric  data  of 
the  type  desired,  i.e.,  bidirectional  spectral  reflectance  data  in  the  2-  to  5- 
um  region.  The  data  available  typically  are  broad-band  and  usually  include 
the  visible  region.  Bidirectionality  is  usually  lost  in  that  the  data  are 
usually  for  hemispherical-directional  or  hemispherical-hemispherical  condi¬ 
tions.  Where  there  are  spectral  data  of  interest,  the  directional  data  are 
lacking;  similarly,  where  there  are  directional  data,  the  spectral  region  or 
resolution  is  wrong.  Where  the  data  are  taken  under  field  conditions,  not 
only  the  sun  but  the  sky  radiance  is  mixed  in. 

Despite  these  difficulties,  however,  we  have  boldly  arrived  at  the 
values  for  the  parameters,  recorded  in  Tables  2-2a  and  2-3.  The  details  of 
the  derivation  of  these  parameters  are  given  in  Sections  2-2  and  2-3. 

In  Table  2-2b,  we  present  the  azimuthal  dependence  of  fr  for  =  9r 
=  0,  as  well  as  <fr(0,0,o)>. 

2-1.7  Surface  Temperature 

The  remaining  required  specification,  surface  temperature,  may  be 
chosen  to  be  equal  to  the  ambient  air  temperature  at  the  Earth's  surface. 

This  assumption  is  reasonably  correct  for  all  cases  at  night,  and  for  water, 
snow,  and  foliaged  surfaces  during  the  day.  This  assumption  leads  to  signifi¬ 
cantly  low  surface  temperatures  for  other  surfaces  (barren  soil,  sand,  and 
urban  materi al s)  during  periods  of  solar  illumination.  However,  because  of 
the  complexity  of  modeling  this  phenomenon,  and  the  fact  that  the  natural 
Earth  surface  radiance  is  only  a  baseline  for  nuclear  effects,  use  of  the 
ambient  air  temperature  as  the  surface  temperature  is  currently  recommended; 
however,  consideration  should  be  given  later  (if  resources  permit)  to  devel¬ 
oping  a  better  prescription  for  the  surface  temperature. 
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Table  2-2a.  Spectral  and  directional  parameters  for  characterization 


of 

the  BRDF 

for 

Earth  surface  materials.* 

Spe 

ctral 

Directional 

Materi  al 

m 

D(m) 

Pnm 

(  X  )  <x 

RIO)  R  U ) 

Rm 

. . — - 

OR! 

m 

m  'm 

m  m 

m 

Lambertian 

1 

a 

0(11/,  - 

0  U 

0 

Water 

2 

b 

f 

- 

- 

- 

- 

Snow 

3 

c 

9 

3 

0.9  1 

13  3 

b 

Sana 

4 

d 

h 

3 

0.5  1 

2.5  4 

3.25 

Soil 

5 

d 

i 

2.5 

0.5  2 

1  4 

2.5 

Vegetation 

6 

d 

j 

2.5 

0.5  2 

1  10 

5.5 

Urban  Materials 

7 

e 

k 

4 

0.5  2 

10.5  1 

5.75 

directional 

( continued) 

Material 

m 

P1(V 

P2,  <“„> 

Fy  (<v0) 

V3m’V 

;0) 

m 

Tm 

Lambertian 

1 

. 

1.00 

Water 

2 

- 

- 

- 

- 

Snow 

3 

.245 

.0890 

.0498 

1.024 

Sand 

4 

.518 

.089U 

.0498 

1.015 

Soil 

5 

.571 

.184 

.0821 

1.043 

Vegetation 

6 

.571 

.184 

.0821 

1.095 

Urban  Materials 

7 

.432 

.123 

.0183 

1.011 

*Footnotes  are  on 

the 

following  page. 
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Footnotes  for  Table  2 -2a. 


0(1)  is  the  diffuse  reflectance  Is,  =  *p  .)  f°r  a  Lambertian  surface.  A 
typical  value  is  0.1.  L  1 

b  0(2)  is  the  wind  speed,  0  <  0(2),  m/sec. 

£ 

0(3)  is  the  snow-age  parameter,  0  <^0(3)  <  1.  Values  of  zero  and  one  corre¬ 
spond  to  new  and  old  snow,  respectively. 

d  Not  used. 

0 

D(7)  is  the  degree-of-urbani zation  factor,  0  10(7)  11.  A  value  of  zero 
for  0(7)  provides  a  spectral-dependent  BRDF  corresponding  to  a  flat  surface 
with  directional  reflectance  properties  equal  to  the  average  for  concrete 
and  asphalt.  A  value  of  one  for  0(7)  provides  a  spectral-dependent  BRDF 
corresponding  to  a  diffuse  reflector  but  modified  by  a  shadow  factor 
S(9.,ep)  =  (cos  9i  +  cos  er)/2. 

£ 

'  See  Section  3  for  treatment  of  water. 

^  Evaluated  from  Equation  (6 ’  ’ )  with  p..  given  in  Table  2-3  by  a  formula  with 
dependence  on  the  snow- age  parameter,  0(3). 

h  Evaluated  from  Equation  (6“)  with  p.,  given  in  Table  2-3,  being  the  average 

value  for  natural  gypsum  sand  [Ho-66,  Figure  10]  and  Russian  sand  [Kropotkin 

(1964)  per  Ba-67b,  Figure  82]. 

1  Evaluated  from  Equation  (6")  with  given  in  Table  2-3,  being  the  average 
value  for  topsoil  [RH-73,  p.  15-20],  Pawnee  Grassland  soil  [Ho-66,  Figure 
9],  and  Russian  soil  [Kropotkin  (1964)  per  Ba-67b,  Figure  82]. 

J  Evaluated  from  Equation  (6")  with  o^,  given  in  Table  2-3,  based  on  data 

provided  by  D.C.  Anding,  said  to  be  an  average  of  many  values  in  LE-71a  for 

2.0  <  (urn)  <  2.5  and  estimated  for  2.5  <x(pm)  5. 

k 

Evaluated  from  Equation  ( 6 * 1 )  with  p-j,  given  in  Table  2-3,  being  the  average 
value  for  Russian  asphalt,  asphal tic  material  [Wo-65a,  Figure  4-23],  Russian 
(red)  brick,  and  Russian  concrete.  Russian  data  are  given  by  Kropotkin 
(1964)  per  Ba-67b,  Figure  82. 


Table  2-2b.  <fr(Q,0,i)>  and  azimuthal  dependence  of  fr(0,0,*). 


m 

Do'lfr(0,0,0) 

Po'lfr(°,0,,-/2) 

oo'lfr<0,0,i.) 

Po"1<fr(0.°.*» 

3 

1.032 

1.0013 

1.0074 

1.0068 

4 

1.0062 

1.0018 

1.0099 

1.0042 

5 

1.0067 

1.0048 

1.027 

1.0095 

6 

1.0067 

1.011 

1.067 

1.021 

7 

1.0035 

1.00026 

1.00034 

1.00083 

Table  2 

-3.  Normal-incidence-- 
surface  materials. 

hemispherical 

reflectance  for 

Earth 

Snow 

°3  = 

Soil 

[0.44  ~  0.12 

{ A -2 ) ]  [ 1- ( 5/12 )  D(3)] 

Sand 

x  ,pm 

°5 

x,um 

°5 

x  ,wm 

°4 

X  ,  ulfl 

p4 

2.00 

0.262 

3.15 

0.067 

2.00 

0.205 

2.95 

0.040 

2.08 

.272 

3.50 

.112 

2.05 

.238 

3.20 

.070 

2.25 

.257 

3.70 

.158 

2.18 

.209 

3.30 

.093 

2.50 

.227 

3.82 

.177 

2.30 

.206 

3.60 

.145 

2.62 

.198 

4.10 

.195 

2.45 

.177 

3.75 

.162 

2.70 

.095 

4.60 

.158 

2.50 

.174 

3.90 

,152 

2.77 

.067 

4.77 

.142 

2.63 

.148 

4.35 

.076 

2.92 

0.061 

5.00 

0.113 

2.73 

.114 

4.90 

.031 

2.88 

0.080 

5.00 

0.035 

Vegetation 


x  ,um 

°6 

x  t  uni 

p6 

2.00 

0.129 

3.16 

0.033 

2.20 

.212 

3.22 

.033 

2.64 

.059 

3.42 

.074 

2.78 

.059 

3.58 

.074 

2.96 

.120 

3.95 

.037 

3.03 

0.120 

5.00 

0.021 

( continti 

29 


Table  2-3.  Normal -incidence--hemi spherical  reflectance  for  Earth 
surface  materials*  (Cont'd). 


Urban  Material  s 

A  . 

p7 

A  ,ym 

c7 

A  ,ym 

°7 

2.00 

0.347 

2.70 

0.272 

4.00 

0.231 

2.12 

.348 

2.85 

.145 

4.10 

.238 

2.24 

.326 

2.89 

.118 

4.26 

.240 

2.26 

.278 

3.00 

.090 

4.42 

.254 

2.36 

.272 

3.10 

.091 

4.70 

.246 

2.47 

.295 

3.24 

.100 

4.83 

.229 

2 . 55 

.299 

3.62 

.149 

5.00 

0.215 

2.63 

0.296 

3.89 

0.193 

°In  this  table,  for 

brevity,  we 

use  the  no 

tation  p  = 

Pm( 4,0,2 

n )  for  the 

spectral  ,  nomal-incidence--hefflispherical 

reflectance 

2-2  EVALUATION  OF  SPECTRAL  DATA  FOR  THE  BRDF 

2-2.1  Snow 

for  snow,  we  have  found  very  limited  spectral  reflectance  data  in  the 
2-  to  5-um  region,  although  there  are  considerable  spectral  data  in  the  visi¬ 
ble  region  [Ko-73a,  pp.  227-229,  231]  and  albedo  data  [Ko-72dJ.  Kondratyev 
[Ko-73a,  p.234.  Figure  4.12]  reports  spectral  reflectance  data  for  old  snow 
for  \<  2.5  yin  and  for  fresh  snow  for  a  <  2.2  pm;  these  values  are  much  smaller 
than  those  we  have  adopted,  taken  from  graphs  given  by  Rose  et  al .  [RA-73, 
Figures  37b,  37c]  (or  W2-78,  Figure  3-19)  and  attributed  to  Russian  literature 
which  we  have  not  yet  acquired  for  verification.  The  data  from  RA-73,  which 
are  limited  to  i  f  4.0  urn,  are  replotted  in  Figure  2-1  where  they  are  extrapo¬ 
lated  to  5  urn.  By  using  the  slopes  of  the  curves  in  the  3-  to  4-ym  region,  we 
have  very  well  fitted  the  two  curves  by  the  single  equation 

p3  =  [0. 44  -  0.12  (a  -  2)]  [1-15/12 )  0(3)] 


(13) 


Figure  2—1 .  Spectral  diffuse  reflectance  of  winter  snow  and  ice  and  summer  ice 
(2  to  5  (im|. 

in  which  we  have  introduced  the  snow-age  parameter  D ( 3 )  to  which  we  assign  the 
value  of  zero  for  winter  snow  and  ice  and  the  value  of  unity  for  sunner  ice. 
Intermediate  curves  can  be  interpolated  by  using  intermediate  values  of  0(3), 

0  <  0(3)  <  1.0. 

2-2.2  Sand 

Hemispherical--normal-directional  spectral  reflectance  data  in  the 
range  0.5<i(um)  <b  are  given  by  Hovis  [Ho-60j  for  pure  silica  sand,  beach 
sands  (from  New  Jersey  and  Florida)  which  are  largely  silica,  and  gypsum  sand, 
conmon  in  much  of  the  soil  of  the  western  United  States,  particularly  in  the 
sand  of  the  White  Sands  National  Monument  in  New  Mexico.  For  gypsum  sand, 
riovis  lHo-66j  shows  reflectance  data  for  samples  of  both  its  natural  state  and 
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partially  dehydrated  state.  Spectral  data  for  (Russian)  sand,  not  otherwise 
identified,  are  given  by  Kropotkin  [(1964),  per  Ba-67b,  Figure  82].  The  data 
from  Kropotkin  are  reproduced  as  Figure  2-2.  The  results  of  digitizing  the 
Hovis  curve  [Ho-66,  Figure  iO]  for  the  natural-state  gypsum  sand  and  those 
for  the  Russian  sand  are  given  in  Table  2-4;  these  data  are  plotted  in  Figure 
2-3.  The  results  of  averaging  the  digitized  data  for  the  natural  gypsum  sand 
and  the  Russian  sand  are  given  in  Table  2-3  and  plotted  as  the  dashed  curve  in 
Figure  2-3. 


\ 

A I  ^ ) 


Figure  2—2.  Spectral  reflectance  for  (1 )  sand,  (2)  soil,  (3)  asphalt,  (4)  brick,  and  (5)  concrete 
(after  Kropotkin  et  al.,  per  Pa— 67b,  Figure  82). 
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Table  2-4.  Spectral  reflectance  of 

sdnd 1  0^ * 

Natural  Gypsum  Sand  a 

Russian  Sand  15 

t  ,um 

p4 

t  ,um 

°4 

2.00 

0.07 

2.00 

0.34 

2.05 

.14 

2.25 

.325 

2.18 

.09 

2.50 

.30 

2.30 

.095 

2.65 

.  J5 

2.45 

.05 

2.78 

.20 

2.63 

.04 

2.88 

.15 

2.73 

.01 

2.95 

.06 

2.87 

.01 

3.10 

.10 

2.95 

.02 

3.30 

.  15 

3.20 

.015 

3.80 

.20 

3.75 

.12 

3.90 

.21 

4.35 

.015 

4.00 

.20 

4.80 

.015 

4.90 

.04 

5.00 

0.03 

5.00 

0.04 

^ovis  [Ho- 

-66,  Figure  10]. 

bKropotkin  (1964) 

[Ba-67b,  Figure  82]. 

Figure  2-3.  Spectral  reflectance  for  sand,  p4.  Dashed  curve  is  average  of  (A)  natural 

gypsum  sand  (Hovis,  H0-G6,  Figure  10)  and  f B)  Russian  sand  (Kropotkin 
(1964)  per  Bart  man  |Ba-67b.  Figure  82] ). 
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2-2.3 


Soil 


Hovis  t.Ho-66,  Figure  9]  presents  the  hemispherical--nonnal-direc- 
tional  reflectance  of  soil  from  the  Pawnee  Grassland  area  in  Colorado.  The 
results  of  digitizing  the  Hovis  curve  are  given  in  Table  2-5  and  plotted  in 
Figure  2-4. 

RH-73  (p.  15-20,  Figure  lu)  presents  the  normal  emittance  of  topsoil. 
The  results  of  digitizing  this  curve  and  computing  the  normal  reflectance  are 
given  in  Table  2-5  and  plotted  in  Figure  2-4. 

Spectral  data  for  (Russian)  soil,  not  otherwise  identified,  are  given 
by  Kropotkin  [(1964)  per  Ba-67b,  Figure  82],  reproduced  here  as  Figure  2-2. 

The  results  of  digitizing  the  Kropotkin  curve  are  given  in  Table  2-5  and  plot¬ 
ted  in  Figure  2  4. 

The  results  of  averaging  the  digitized  data  for  the  Pawnee  Grassland 
soil  [Ho-66],  the  topsoil  reported  in  RH-73,  and  the  Russian  soil  [Ba-67b]  are 
given  in  Table  2-3  and  plotted  in  Figure  2-4. 

2-2.4  Vegetation 

The  following  spectral  reflectance  data  for  vegetation  were  provided 
by  D.C.  Andirg  who  says: 

"Values  of  spectral  diffuse  reflectance  of  vegetation  repre¬ 
senting  the  averages  for  many  types  cf  vegetation  wp.-p  re¬ 
tailed.  The  data  were  taken  from  LE-71a  for  k  <  2.5  urn  for 
which  the  typical  measurement  procedure  was  to  illuminate  at 
normal  incidence  and  collect  hemispherical  output.  Values 
beyond  2.5  um  were  estimated." 
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Table  2-5.  Spectral  reflectance  of  soil  ,  d$. 


Pawnee  Grassland  Soil3 

Topsoil b 

x  ,  .i  m 

p5 

X  t  am 

e 

=o5 

2.00 

0.36 

2.00 

0.725 

0.275 

2.08 

.395 

2.50 

.766 

.234 

2.62 

.27 

2.61 

.800 

.200 

2.70 

.045 

2.77 

.950 

.050 

3.15 

.045 

2.92 

.950 

.050 

3.70 

.22 

3.15 

.920 

.080 

4.10 

.25 

3.50 

.910 

.090 

5.00 

0.09 

3.82 

.810 

.190 

4.15 

.790 

.210 

Hovi  s 

[Ho-66,  Fig.  9] 

4.77 

.825 

.175 

5.00 

0.860 

0.140 

bRR-73, 

p.  15-20, 

Fig.  10. 

Russian  Soilc 

* ,  um 

°5 

2.00 

0.150 

2.25 

.160 

2.50 

.150 

2.70 

.125 

2.85 

.090 

3.25 

.075 

4.10 

.130 

4.60 

.130 

5.00 

0.110 

CKropotki n  (1%4)  [3a-67b,  Fig.  32] 


For  x  <  2.5  um,  the  data  are  the  same  as  those  g’ven  in  Figure  37e  of 
RA-73  (or  Figure  3-19  of  W2-78);  at  longer  wavelengths  trie  curve  in  Figure  37e 
of  RA-73  differs  someOiat  from  the  estimated  data  provided  by  Anding.  The 
results  of  digitizing  Anding's  curve  are  given  in  Table  2-3  and  plotted  in 
Figure  2-5.  Whereas  we  will  use  the  curve  in  Figure  2-5,  one  should  be  alert 
for  more  specific  data. 
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Spectral  reflectance  for  toil,  pc  ■  Dash— dot  curve  it  average  of  (A)  Pawnee 
Grassland  soil  (Ho— €6,  Figure  9J ,  (B)  Topsoil  (RH— 73,  p.  15—20, 

Figure  10] .  and  (C)  Russian  soil  (Kropotkin  (1964)  per  Ba— 67b,  Figure  82] 


2-2.5 


Urban  Materials 


Wolfe  [Wo-65a,  Figure  4-23]  reports  the  spectral  reflectance  of 
asphaltic  road  material-  The  results  of  digitizing  this  curve  are  given  in 
rable  2-6  and  plotted  in  Figure  2-6. 


Spectral  reflectance  data  for  (Russian)  asphalt,  brick,  and  concrete 
are  given  by  Kropotkin  [(1964)  per  Ba-67b,  Figure  67b],  reproduced  here  as 
Figure  2-2.  The  result  of  digitizing  these  curves  are  given  in  Table  2-6  and 
plotted  in  Figure  2-6. 

The  results  of  averaging  the  digitized  data  for  the  asphaltic  road 
material  [Wo-65a]  and  the  Russian  asphalt,  brick,  and  concrete  are  given  in 
Table  2-3  and  plotted  in  Figure  2-6. 


2-3 


E VALUATION  OF  DIRECTIONAL  DATA  FOR  THE  BRDF 


2-3.1 


Snow 


Salomonson  and  Marlatt  [SM-68,  SM-68a]  have  measured  spectrally  inte¬ 
grated  values  (0.55  to  0.35  um  and  0.2  to  4.0  um)  of  the  BRDF 1 s  for  clouds, 
sno.  and  white  gypsum  sand.  The  ordinate  in  their  Cartesian  plots  is  actu¬ 
ally  it  times  the  BRDF.  The  relative  values  of  the  ordinates  on  the  curves  for 
the  0.2-  to  4.0-vm  spectral  interval  have  been  digitized  and  they  are  given  in 
Table  2-7. 

The  expression  we  have  evaluated  as  the  relative  BRDF  for  snow  is  the 
ratio  given  by  Equation  (14), 


f  ( 0 . , e  ,t) 

cfo-a  •  \  -  r'i’r’ 
Fr(9i’Vv)  =  T^Ce',  ,9„-0,^)  ' 


[14) 


r'i’r 


where  fr(fl^,Br,*)  is  given  by  Equation  (1),  with  the  five  directional  para¬ 
meters  ( a-j ,  Bj,  aj,  R^iu),  and  R-j(k))  as  giver,  in  Table  2 -2 a  for  m=3.  We  have 
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Table  2-6.  Spectral  reflectance  of  seme  urban  materials, 


Asph-al  tic 

Poad  Material a 

Asphalt*3 

x ,  um 

°7 

x ,  urn 

p7 

2.00 

0.462 

2.00 

0.100 

2. 12 

.480 

2.50 

.090 

2.24 

.411 

3.00 

.025 

2.26 

.226 

4.00 

.075 

2.36 

.226 

4.60 

.075 

2.47 

.346 

5.00 

0.060 

2.63 

.436 

2.70 

.436 

2.89 

.100 

3.00 

.074 

Brick 

3.15 

.077 

3.24 

.042 

x  ,ym 

p7 

3.38 

.042 

3.62 

.068 

2.00 

0.525 

3.89 

.160 

2.30 

.500 

4.00 

.279 

2.50 

.480 

4.26 

.331 

2.65 

.465 

4.42 

.419 

3.00 

.220 

4.62 

.439 

3.10 

.220 

4.70 

.467 

3.50 

.350 

4.83 

.457 

4.00 

.450 

5.00 

0.476 

4.10 

.450 

4.60 

.350 

5.00 

0.200 

Concrete*3 


x ,  um 

°7 

x ,  pm 

°7 

x  ,pm 

°7 

2.00 

0.300 

2.65 

0.200 

4,30 

0.140 

2.20 

.300 

2.85 

.040 

4.60 

.140 

2.40 

.275 

3.10 

.040 

5.00 

0.125 

2.55 

0.250 

3.60 

0.100 

j*Wolfe  [Wo-65a,  Figure  4-23,  p.  83] 
Kropotkin  [(1964),  Ba-67b,  Figure  82] 
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Figure  2—6.  Spectral  reflectance  for  urban  materials,  yj  .  Dash-dot  curve  is  average  of 

(A)  Asphaltic  road  material  [Wo-65a,  Figure  4-23,  p.  83) ,  (B)  Asphalt 
(Kropotkin  (1964)  per  Ba— 67b,  Figure  821 ,  (C)  Brick  [Kropotkin  (1964) 
per  Ba—  67b,  Figure  82),  and  (D)  Concrete  (Kropotkin  (1964)  per  Ba— 67b, 
Figure  82] . 
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plotted  the  results  for  the  forward  U=0)  and  backward  U=ir)  directions  as  the 
set  of  continuous  curves  in  Figure  2-7,  with  the  lowest,  middle,  and  highest 
portions  corresponding  to  solar  zenith  angles  (9^)  of  64,  68,  and  84  deg.  The 
experimental  values  of  SM-68  are  also  shown  in  Figure  2-7  for  comparison. 


Table  2.7.  Relative  directional  reflectance  of  snow  for  solar  zenith 
angles  of  e.  =  64,  68,  84  deg,  in  the  spectral  range  of 
0.2  to  4,0  urn. 


Solar 

Azimuth 

Zenith  Angle  of 

Zenith 

Angle 

Reflected  Ray,  e_ 

ei 

* 

O 

45 

60 

75 

64 

0 

1.00 

1.26 

1.52 

1.97 

180 

1.03 

1.12 

1.19 

68 

0 

1.21 

1.48 

2.36 

180 

1.21 

1.31 

1.48 

84 

0 

1.63 

2.26 

4.11 

180 

l.Ol 

1.34 

1.94 

aValues  inferred 

from  Figures  16,  8, 

and  15  of 

Salomonsor 

1  and  Marlatt  [SM-68], 

2-3.2  Sand 

Salomonson  and  Marlatt  [SM-68]  have  also  obtained  results  for  white 
gypsum  sand.  The  relative  values  of  the  ordinates  on  their  curves  for  the 
0.2-  to  4.0-um  spectral  interval  have  been  digitized;  they  are  given  in  Table 
2-8. 

The  expression  we  have  evaluated  as  the  relative  BRDF  for  sand  is  the 
ratio  given  by  Equation  (14)  with  the  five  directional  parameters  as  given  in 
Table  2-2a  for  m=4.  We  have  plotted  the  results  for  the  forward  (*=0)  and 
backward  (♦=»)  directions  as  the  set  of  continuous  curves  in  Figure  2-8,  with 
the  lowest,  middle,  and  highest  portions  corresponding  to  solar  zenith  angles 
( 0 ^ )  of  21,  48,  and  59  deg.  The  experimental  values  of  SM-68  are  also  shown 
in  Figure  2-8  for  comparison. 


Relative  BROF 


F 


Figure  2— 7.  Relative  BRDF  for  »now. 


Table  2-8.  Relative  directional  reflectance  of  gypsum  sand  for  solar 

zenith  angles  gf  e.  =  21,  48,  59  deg,  in  the  spectral  range 
0.2  to  4.0  pm.  1 


Sol  ar 

Azimuth 

Zenith  Angle  of 

Zenith  Angle 

Angle 

Reflected  Ray,  e, 

r 

8  . 

1 

4> 

0 

45 

60 

75 

21 

0 

1.00 

0.95 

0.95 

0.85 

180 

1.04 

1.04 

0.95 

48 

0 

1.00 

1.02 

1.04 

180 

1.13 

1.19 

1.19 

59 

0 

1.01 

1.10 

1.11 

180 

1.11 

1.22 

1.28 

59 

0 

1.04 

1.07 

1.38 

180 

1.10 

1.20 

1.40 

aValues  inferred 
[SM-68]. 

from  Figures  17, 

18,  9,  and 

19  of  Salomonson  and 

Marlatt 

2-3.3  Soil 

Coul son  [Co-66a,  Figure  4]  plots  the  directional  reflectance  of  black 
loam  soil  at  three  angles  of  incidence  (0,  53,  and  78.5  deg)  in  the  principal 

o 

plane  for  x=643Q  A-  Coul son  notes  that  the  backward  maximum  is  relatively 
more  pronounced  at  all  three  angles  than  it  is  for  desert  sand,  and  the  for¬ 
ward  maximum  is  almost  absent  at  the  small  angles  of  incidence. 

Duntley,  Gordan,  et  al .  [DG-64]  measured  the  directional  luminous 
reflectance  of  dirt  (hard  packed,  yellowish).  Their  data  are  reproduced  here 
in  Table  2-9a.  We  have  normalized  these  data  to  the  nadir  value  and  tabulated 
the  results  in  Table  2-9b. 

The  expression  we  have  evaluated  as  the  relative  BRDF  for  soil  (dirt) 
is  the  ratio  given  by  Equation  (14)  with  the  five  directional  parameters  as 
given  in  Table  2-2a  for  m=5.  We  have  plotted  the  results  for  the  forward 
(■>.•=0),  backward  (4 f»),  and  sideward  U=W2)  directions  as  the  set  of  con¬ 
tinuous  curves  in  Figure  2-9.  The  experimental  values  of  DG-64  are  also  shown 
in  Figure  2-9  for  comparison. 
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Relative  BRDF 


Figure  2—8.  Relative  BRDF  lor  gypsum  sand. 
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Table  2-9a.  Directional  luiiinous  reflectance  of  dirt  for  solar  zenith 
angles  e .  54  deg. 


Sol  ar 

Azimuth 

Zenith  Angle  of 

1 

Zenith  Angle 

Angle 

Reflected  Ray,  er 

$ . 

i 

4>  0 

15 

30 

45  60 

75 

80 

53.2 

0  0.243 

0.230 

0.229 

0.239  0.252 

0.300 

0.330 

56.5 

90 

0.243 

0.258 

0.260  0.276 

0.300 

0.304 

51.1 

180 

0.272 

0.313 

0.370  0.422 

0.432 

0.434 

aDuntley,  Gordan 

et  al .  [DG-64,  Table  3.2]; 

Item  8 

*  h^rd- packed 

,  yellowish 

dirt. 


Table  2 -9b 

.  Relative  directional  luni 
zenith  angles  9^  %  54  deg 

ngus  reflectance  of  dirt  for 
* 

solar 

Solar 

Azi muth 

Zenith  Angle  of 

Zenith  Angle 

Angle 

Reflected  Ray,  er 

ei 

* 

0 

15 

30 

45  60 

75 

80 

53.2 

0 

1.00 

0.95 

0.94 

0.98  1.04 

1.23 

1.36 

56.5 

90 

1.00 

1.06 

1.07  1.14 

1.23 

1.25 

51.1 

180 

1.12 

1.29 

1.52  1.74 

1.78 

1.79 

aDerived  from 

Table  2-9a. 

2-3.4  Vegetation 

For  green  grass,  Coulson  [Co-66a]  has  measured  the  directional  reflec¬ 
tance  at  four  different  wavelengths  in  the  visible  and  near-IR  spectral  eg- 

O 

ions  and  at  three  different  angles  of  incidence  at  x=6430  A,  all  measurements 
being  in  the  principal  plane. 

Duntley,  Gordan  et  al .  [OG-64.  Table  3.2]  have  measured  the  direc¬ 
tional  luminous  reflectance  of  several  types  of  vegetation.  For  each  type  of 
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Figure  2—9.  Relative  BRDF  for  dirt. 
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vegetation  we  have  normalized  their  data  to  the  nadir  value  for  the  correspond- 
ing  type  of  vegetation  and  presented  the  results  in  Table  2-10.  The  last  set 
of  numbers  in  Table  2-10  represents  an  average  of  the  data  for  the  first  four 
types  of  vegetation. 

The  expression  we  have  evaluated  as  the  relative  BRDF  for  vegetation 
is  the  ratio  given  by  Equation  (14)  with  the  five  directional  parameters  as 
given  in  Table  2-2a  for  m=6.  We  have  plotted  the  results  for  the  forward 
(t'=0),  backward  (<'="),  and  bideward  (*-*/2)  directions  as  the  set  of  continu¬ 
ous  curves  in  Figure  2-10.  The  average  of  the  experimental  vegetation  values, 
given  in  Table  2-10,  are  also  shown  in  Figure  2-10  for  comparison. 

2-3.5  Urban  Material s 

2-3.5. 1  Concrete  and  Asphalt 

Wolfe  [Wo-boa,  pp.  88,89]  presents  directional  reflectivity  curves 
for  concrete  and  for  asphalt.  In  fact,  results  are  given  for  three  types  of 
detectors:  PbSe,  PbS,  and  thermistor.  We  have  selected  the  results  for  the 
PbSe  detector  as  being  of  the  greatest  interest  for  applications  in  the  2-  to 
5-ym  region,  as  seen  by  examining  the  detector  characteristic  curves  presented 
by  Wolfe  [Wo-65a:  PbSe,  pp.  477-479;  PbS,  pp.  474-476;  thermistor,  p.  498]. 

We  have  digitized  the  directional  reflectivity  curves  presented  by  Wolfe  [Wo- 
65a]  for  the  PbSe  detector  and  taken  account  of  the  fact  that  the  "directional 
reflectivity"  rir  given  in  these  figures  is  related  to  the  partial  reflectance 
(which  we  here  call  the  BRDF,  fr  [Ni-70d,  Ni-65c]5  by  the  expression 

<*1r  =  fr(ei,9r;*=0,n)  cos  e.  cos  f>r  .  (15) 

Ue  have  given  both  the  directly-read  values  r^r  and  converted  values  f  in 
Tables  2 - 1 1 a  and  2-1  lb.  For  each  source  zenith  angle  we  have  normalized 
these  values  of  the  BRDF  to  an  average  of  the  near-nadir  values  and  tabulated 
the  results  in  Table  2-1  lc. 
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Table  2-10.  Relative  directional  luminous  reflectance  of  several  types  of 
vegetation. 


(11  Pine  Trees;  small , 

uniformly  spaced.  Data  are 

for  unresolved 

terrain 

i. 

Solar 

Azimuth 

Zenith  Angle 

of  Reflected  Ray, 

Zenith,  8. 

V 

0 

15 

30 

45 

50 

75 

80 

85 

41.5 

0 

1.00 

0.72 

0.64 

0.64 

0.78 

1.14 

1.39 

2.58 

45 

.67 

.61 

.58 

.63 

.91 

1.16 

1.65 

90 

.95 

.93 

.95 

.95 

1.01 

1.16 

1.39 

135 

1.01 

1.15 

1.18 

1.16 

1.32 

1.39 

1.72 

180 

1.21 

1.33 

1.74 

1.92 

2.14 

2.28 

2.48 

(2)  Grass; 

thick,  rather  long 

,  pale 

green. 

dormant 

,  dryi sh 

i,  little  ground 

showing 

Solar 

Azimuth 

Zenith  Angle 

of  Reflected  Ray,  er 

Zenith, 

V 

0 

15 

30 

45 

60 

75 

80 

85 

41.5 

0 

1.00 

0.92 

0.86 

0.87 

1.00 

1.07 

1.09 

1.07 

180 

1.11 

1.35 

1.66 

1.70 

1.74 

1.74 

1.82 

(3)  Grass; 

lush  green 

,  closely  mowed 

thick 

lawn. 

Sol  ar 

Azimuth 

Zenith  Angle  of  Reflected  Ray, 

0r 

Zenith,  ei 

* 

0 

15 

30 

45 

60 

75 

80 

40.4 

0 

1.00 

0.96 

Q.oR 

1.08 

1.20 

1.49 

1.68 

39.6 

90 

1.03 

1.10 

1.21 

1.38 

1.59 

1.68 

39.6 

135 

1.07 

1.25 

1.48 

1.66 

1.78 

1.78 

39.9 

180 

1.09 

1.09 

1.19 

1.22 

1.25 

1.25 

(continued) 
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Table  2-10.  Relative  directional  luminous  reflectance  of  several  types  of 
vegetation  (Cont’d). 


(4)  Mixed 

Green  Forest; 

deciduous  (oak)  and  evergeen  (pine) 

• 

Sol  ar 

Azimuth 

Zenith  Angle  of  Reflected  Ray,  8(, 

Zenith,  e 

i  * 

0 

15 

30  45 

60 

75 

39.0 

0 

1.00 

U .  90 

0.81  0.57 

0.57 

0.95 

37.0 

180 

1.14 

1.37  1.37 

2.28 

7.30 

(5)  Pine 

Forest. 

Solar 

Azimuth 

Zenith  Angie  of  Reflected  Ray,  er 

Zenith,  a 

i  * 

0 

15 

30  45 

60 

75 

33.5 

0 

1.00 

1.00 

0.80  0.64 

0.64 

0.52 

(6)  Average  of  First  Four  Types. 

Sol  ar 

Azimuth 

Zenith  Angle  of  Reflected  Ray,  er 

Zenith,  0 

i  * 

0 

15 

30  45 

60 

75 

80 

35 

'^40 

0 

1.00 

0.88 

0.82  0.79 

0.89 

1.16 

1.39 

1.82 

90 

0.99 

1.01  1.03 

1.16 

1.30 

1.42 

180 

1.14 

1.28  1.49 

1.78 

3.11 

1.76 

dFrom  DO- 

64,  Table  3.2 

The  expression  we  have  evaluated  as  the  relative  BRDF  for  concrete 
and  for  asphalt  is  the  ratio  given  by  Equation  (14)  with  the  parameters  for 
concrete  being  T^a  =  2,  a-j  =  4,  =  0.5,  a { 0 )  =  8,  and  R ? b ( w )  -  1  and  for 

asphalt  being  =  2,  a7b  =  4,  87fa  =  0.5  ^ 7 b ( 0 J  =  13,  and  R 7 b ( ”  1  =  1.  we 
have  olotted  the  results  for  the  forward  (i=0)  and  backward  (*=*)  directions 
in  Figure  2-lla  and  2 - 1 1 b .  The  experimental  values  reported  in  Wo-65a  are 
also  shown  in  Figures  2-lla  and  2 - 1 1 b  for  comparison.  For  an  average  of  con 
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Figure  2— 10.  Relative  BRDF  for  vegetation. 
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Table  2-lla.  Directional  reflectance  data  for  concrete.8 


r . 

\  r 

f 

-1 

,sr 

r 

V 

e 

r 

V° 

r^=20 

6.  =40 

1 

e^=60 

v° 

»  .=?<J 

*.=40 

e.=6Q 

0 

BO 

0.027 

0.030 

0.030 

0.032 

0.16 

0.18 

0.23 

0.37 

0 

70 

.039 

.040 

.045 

.055 

.11 

.12 

.17 

.32 

0 

60 

.053 

.053 

.053 

.064 

.11 

.11 

.14 

.26 

0 

50 

.073 

.075 

.074 

.061 

.la 

.12 

.15 

.19 

0 

40 

.086 

.081 

.075 

.057 

.11 

.11 

.13 

.15 

0 

30 

.10 

.094 

.092 

.058 

.12 

.12 

.14 

.13 

0 

20 

.10 

.11 

.090 

.053 

.11 

.12 

.13 

.11 

0 

10 

.11 

.12 

.088 

.059 

.11 

.13 

.12 

.12 

0 

.11 

.089 

.064 

.12 

.12 

.13 

180 

10 

.10 

.10 

.084 

.055 

.10 

.11 

.11 

.11 

180 

20 

.10 

.077 

.049 

.11 

.11 

.10 

180 

30 

.10 

.094 

.073 

.046 

.12 

.12 

.11 

.11 

180 

40 

.087 

.065 

.049 

.11 

.090 

.13 

180 

50 

.073 

.063 

.053 

.032 

•  il 

.10 

.11 

.10 

180 

60 

.061 

.040 

.050 

.12 

.085 

13 

180 

70 

.037 

.040 

.030 

.11 

.12 

.11 

180 

80 

.027 

.17 

aValues  of  r. 
f  computed1 

-  read 
from  fr 

from  VJo~65a,  p 
=  rir/(cos  6  • 

.  88,  Figure 
cos  er). 

4-28. 

PbSe  da 

tec  tor . 

Values  of 

Crete  and  asphalt  we  propose  the  five  directional  parameters  as  given  in  Table 
2-2a  for  m=7. 

2-3. 5. 2  Urban  Geometry  Parameters 

Because  an  urban  area  has  an  exceedingly  complex  geometrical  struc¬ 
ture,  we  introduce  (1)  a  { conjectured)  shadow-f actor ,  S(e^,e  ),  given  by 

3(^,0^)  =  (cos  e.  *■  cos  a  )  It  (It) 

(which  may  take  on  values  in  the  range  from  0  to  1  as  a.  and  range  from 
maximum  values  of  s.  r  e  -  90°  to  minimum  values  of  -  -r  =  0),  and  (2)  a 


Table  2-1  lb . 


Di rectional 


reflectance  data  for  asphalt. 


a 


ri  r 

V 

-i 

sr 

V 

er 

9r° 

8  i  =20 

8 .=40  8 

i=60 

6i=° 

6  i=20 

8  .j  =40 

8  ,-=60 

0 

75 

0.0093  0 

.015 

0.047 

0.12 

0 

70 

0.0057 

0.021 

.014 

.022 

0.017 

0.065 

.053 

.13 

0 

60 

.025 

.027 

.020 

.020 

.050 

.057 

.052 

.080 

0 

50 

.025 

.025 

.020 

.022 

.039 

.043 

.041 

.068 

0 

40 

.025 

.029 

.023 

.036 

.032 

.040 

.039 

.094 

0 

30 

.028 

.019 

.027 

.017 

.032 

.023 

.041 

.039 

0 

20 

.020 

.025 

.031 

.013 

.021 

.028 

.043 

.028 

0 

10 

.026 

.023 

.022 

.018 

.026 

.025 

.029 

.037 

0 

.024 

.022 

.017 

.025 

.029 

.034 

180 

10 

.026 

.022 

.022 

.011 

.026 

,024 

.029 

.022 

180 

20 

.020 

.018 

.014 

.021 

.025 

.030 

180 

30 

.028 

.014 

.015 

.014 

.032 

.017 

.023 

.032 

180 

40 

.025 

.026 

.014 

.032 

.036 

.037 

180 

50 

.025 

.025 

.016 

.012 

.039 

.041 

.032 

.037 

180 

60 

.026 

.013 

.0069 

.052 

.028 

.018 

180 

70 

.0066 

.013 

.0053 

.019 

.050 

.031 

180 

80 

.0036 

.041 

aValues  of 

r.  read 

from  Wo-65a,  p. 

89,  Figure 

4-29,  PbSe  detector. 

Values  of 

fr 

computed  from  f 

=  r . 
r  ir 

/(cose-  cos  e  ). 

degree-of- 

urbanization  fac 

tor,  D ( 7 ) 

,  with  the 

rangn  0< 

0(7)  < 

1.  The  BRDF  for 

an  urban  area  wi  1 1 

be  defined  as 

!  » 

1 

l -  . 

r(m=7)  = 

D<7)oo7 

(0  s(oi , 

9r)  +  [l-D ( 

7 )  j 

given  by  Eq.  ( 

1)].  1  (17) 

Thus 

,  for 

0(7)  =  1, 

the  spectral  BRDF  corresponds  to  a 

diffuse  reflector  modi- 

fied  by  the  snadow 

factor 

S(ei,9r). 

For  D  ( 7  )= 

0,  the  spectral 

BRDF  corresponds 

to  a 

flat 

surface  with  average  directional-r 

.tance 

prope*" 

ties  of 

concrete 

ana  asphalt. 


The  directional-hemispherical  reflectance  defined  by  Equation  (5), 
vrth  f  given  by  Equation  (17),  is 
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Table  2-llc.  Relative  bidirectional  reflectance  distribution  functions 
for  concrete  and  asphalt. 


Concrete 


Asphal t 


V 

O  | 

V 

CD  1 

i  ^ 

1  o 

9^40 

6  ^  =60 

V 

v° 

9^=20 

e  .=40 

9^=60 

0 

80 

1.45 

1.50 

1.92 

3.25 

75 

1.62 

3.97 

0 

70 

1.00 

1.00 

1.42 

2.81 

70 

0.72 

2.60 

1.83 

4.30 

0 

60 

1.00 

0.92 

1.17 

2.28 

60 

2.13 

2.28 

1.79 

2.65 

0 

50 

1.09 

1.00 

1.25 

1.67 

50 

1.66 

1.72 

1.41 

2.25 

0 

40 

1.00 

0.92 

1.08 

1.32 

40 

1.36 

1.60 

1.34 

3.11 

0 

30 

1.09 

1.00 

1.17 

1.14 

30 

1.36 

0.92 

1.41 

1.29 

0 

20 

1.00 

1.00 

1.08 

0.96 

20 

0.89 

1.12 

1.48 

0.93 

0 

10 

1.00 

1.08 

1.00 

1.05 

10 

1.11 

1.00 

1.00 

1.22 

0 

1.00 

1.00 

1.14 

0 

1.00 

1.00 

1.13 

180 

10 

0.91 

0.92 

0.92 

0.96 

10 

1.11 

0.96 

1.00 

0.73 

180 

20 

1.00 

0.92 

0.88 

20 

0.89 

0.86 

0.99 

180 

30 

1.09 

1.00 

0.92 

0.96 

30 

1.36 

0.68 

0.79 

1.06 

180 

40 

1.00 

0.75 

1.14 

40 

1.36 

1.44 

1.22 

180 

50 

1.00 

0.83 

0.92 

0.88 

50 

1.66 

1.64 

1.10 

1.22 

180 

60 

1.09 

0.71 

1.08 

60 

2.21 

1.12 

0.62 

180 

70 

1.00 

1.00 

0.92 

70 

0.81 

1.72 

1.03 

180 

80 

1.42 

80 

1.36 

derived  from  data  in  Tables  2-lla  and  2-llb. 


<p^>  5  <pytr,ei  ,2  it  ;  °{7)]>D(7)  -  j  fr  cos  ar  dnr 
r  D<7)  0  07  ( x )  /  S(8i,8r)  COS  8  r  dt!r 
+  [1-0(7)]  / [fr  given  by  Eq.  (1)]  cos  er  dsir 
<p7>  =  0(7)  po7 ( \ )  j  J  (cos  9 ^  +  cos  9 p )  cos  ar  dsr 


+  [1-0(7]]  x]  G ( a-j ,  By ,  Yy ; ) 


<Dy>  -  D  (7  )  pQy(x)  11  lj  cos  9.  +  j]  r  [1-D(7)]  Py  ( X  ;6  ,2n ) , 


(18) 
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Of  ,  Degrees 

Figure  2— 11a.  Relative  BRDF  for  concrete. 


b3 


Relative  BRDF 


5 


i  i  r 

Asphalt 


The  directional  emissivity  (for  m=7,  at  a  zenith  angle  e)  defined  by 
Equation  (12)  with  pm( x ;0 ,2*)  given  by  <o7>  (in  which  is  replaced  by  e)  is 

£d(m=7)  5  <ed07,X,9;D{7)]>D(7) 


(12") 


ed(m=7)  =  1  -  (  n  oq7(x)  D (7 )  +  |]  +  p7(x;a,2v)[l-D(7 )] 


[19) 


Thus,  as  expected,  for  0(7)  =  1,  the  directional  emissivity  corresponds  to 
that  for  a  diffuse  reflector  modified  by  the  shadow-factor  quantity  (which 
ranges  from  1/3  for  0=90°  to  5/6  for  0=0°).  For  D{7)  =0,  the  directional 
emissivity  corresponds  to  a  flat  surface  with  average  directional-emissivity 
properties  of  urban  materials. 


2-4  INTEGRATION  OF  THE  BRDF 


The  spectral,  directional-hemispherical  reflectance,  denoted  here  by 
p(0^,2n),  is  defined  [Ni-6-'-,  Wo-65a]  by  the  integral 

0(0^2*)  =f  fr  cos  er  dnr  (5’) 


where  ff  is  the  bidirectional  reflectance-distribution  function  (BRDF).  We 
want  to  evaluate  this  integral  when  f  is  given  by  our  invented  expression  for 
the  BRDF,  given  by  Equation  (1): 


fr  =  frCm,  D(m),  x;  e . ,  er,  *]  5  f^e^,  ef,  *)  (20) 

fr  =  ®0Cl  +  Fy( 9 i )  er(y)  tU) 


with 


F^ ( 6  ^ )  i  F  (a,e^)  =  exp[-a  (cos  0^)Y] 


(21a) 
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(21b) 


er(u)  =  exp[-ayY] 


u  *  cos  er 

(21c) 

tU) 

=  RU)  exp[ -as ( 1- j  1-2 *)/n j  53 

(21d) 

RU) 

=  R(Q)  -  iRif/w 

(21e) 

aR  = 

R(0)  -  R(»)  . 

(2\f) 

For  symmetry  about  the  principal  plane,  we  can  write  Equation  ( 5 1 )  as 

U  1 

p(e.j,2)t)  =  2po  J“ d*  Ll  +  exp(-apT)rU)F^{  a.. )]  (22a) 

o  o 

IT 

=  2pot7  +  F'r(9i)  f  ’*'(t')P2Y('x)3  (22b) 

o 

where 

1 

P2yU)  f  exp(-a„T)  (23) 

o 

P2j(<*)  =  ~7  ^_e  a(a+H]  (23a) 

a 

P22U)  =  YJ  U-e'a)  .  (23b) 

For  the  integral  ,  <#>  have 
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where 


=  /  d+  t(^ 


n/2  n 

f  dip  exp(-2aBip/ii)R(ip)  +  J"  dp  exp[-2oB(n-4>/'»]R('P) 

o  w/2 


(24) 


»/2 


*/2 


R  (0 )  J  dip  exp(-2oB«i/Ti)  ~~  J  dip  ip  exp(-2aB*/'i) 
o  o 


/aR  /* 

d4»  exp[-2aB(»-p)/ii]  -  —  /  dip  P  exp[-2aB(it-ip)/n] 


w/2 


it/2 


(24a) 


R(0)  £  P L ( oB  )  -  (ff  P21(aB) 


(24b) 


+  R(0)  |  PjtaB)  *  ^7  J  Cw  Pj(bB)  -  |  P21(aB)] 


=  iR  P  ^( aB  ) 


(24c) 


P^laB)  =  J  dy  exp(-aBy)  =  3J  [l-exp(-aB)] 


(25a) 


R  =  [R (0 )  +  S(*)]/2  . 


(25b) 


After  collecting  terms,  we  have 
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@(0^2*)  =  *pQ  [  1  +  2  PjUb)  P£  U)  R  F  (*.8^3  ♦ 


(26) 


To  compute  <fr(0,0,*)>,  we  write 

<'f r( 0 , 0 , ^ >  5  pQ  [i  +  F^(0)  er;i)  (27) 

=  °0  [1  +  exp(-2a)  <tU)>]  (27a) 

wi  th 

n 

<»(♦)>  =  7  f  d+  *U)  =  R  P^oB)  .  (27b) 

o 

2-5  SUBROUTINE  ESURF 

Subroutine  ESURF  provides  the  bidirectional  reflectance-distribution 
function  (BRDF),  directional  emissivity,  and  temperature  of  the  Earth's  sur¬ 
face  at  the  intersection  point  of  the  optical  1 i ne-of-sight.  Since  the  sur¬ 
face  category  is  not  automatically  correlated  with  the  geographic  position, 
the  user  must  select  one  of  seven  categories  provided. 

The  relationship  between  Subroutine  ESURF  and  the  routines  it  calls 
is  shown  in  Figure  2-12.  Table  2-12  summarizes  the  inputs  and  outputs  for 
Subroutine  ESURF. 
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LINEAR 


Figure  2-  .2.  Relationships  between  the  routines  in  the  Earth  Surface 
Characterization  Model. 
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Table  2-12.  Input  and  output  variables  for  Subroutine  ESURF 


INPUT  VARIABLES 


Argument  List 


THI 

THR 

PS  I 


ZKM 

MSM 


DD(M) 


Zenith  angle  of  sun  at  intersection  point  (P)  on  Earth's 
surface,  (radians) 

Zenith  angle  of  line-of-sight  (from  detector)  at  inter¬ 
section  point  (P)  on  Earthrs  surface,  (radians) 

Azimuth  angle  (at  intersection  point  (P))  of  vertical  plane 
through  line-of-sight,  measured  relative  to  the  solar  prin¬ 
cipal  piane  (i.e.,  vertical  plane  through  solar  ray).  A 
value  of  zero  for  PS  I  corresponds  to  forward  scattering, 
(radians) 

Altitude  of  surface,  (km) 

Index  M  for  category  of  surface  material. 

=1,  Lambertian  diffuse  surface  with  spectral ly- i ndependent 
reflectance  set  by  00(1)  and  emissivity  by  [1  -  DD (1)3. 
=2,  Water. 

=3,  Snow. 

=4,  Sand. 

=5,  Soil  . 

=6,  Foliage. 

=7,  Urban  material . 

Additional  descriptor  for  selected  surface  material. 

00(1)  =  Diffuse  reflectance  for  Lambertian  surface. 

Typical  value  is  0.1. 

D0(2)  =  Wind  speed,  (meters/sec) 

DD(3)  =  Snow-age  parameter,  between  the  limiting  values  of 

0  and  1  for  new  and  old  snow,  respectively. 

00(H)  for  M  =  4,  5,  6  not  used. 


(continued) 
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Table  2-12. 


Input  and  output  variables  for  Subroutine  ESlfltF  (Cont'd). 


SPCULR  - 


ZLAM  - 
I  DAY  - 


I F IRES  - 


ESURF1  - 


1)0(7)  =  Degree-of-urbam'zation  between  0  and  1,  for  which 

limits  the  spectral  BRDF  corresponds,  respec¬ 
tively,  to  { a)  a  flat  surface  with  average  direc¬ 
tional  -refl  ectance  properties  of  concrete  and 
asphalt  and  lb)  a  diffuse  reflector  multiplied  by 
a  shadow  factor  S (TKI ,THR )-[cos  THI  +-  cos  THR]/2. 

Logical  variable. 

=  .TRUE.,  Compute  coordinates  of  specular  reflection  point 
on  an  assumed  smooth  horizontal  water  surface,  if  MSM  = 

2,  in  vrtiich  case  the  variable  is  passed  to  Subroutine 
GLITTR. 

=  .FALSE.,  Do  not  compute  such  coordinates. 

Wavelength,  {ym) 

Index  for  diurnal  condition  at  Point  P. 

=  0,  Sola*"  zenith  angle  >  9G  deg. 

=  1,  Solar  zenith  angle  £  90  deg. 

Flag  for  inclusion  of  fireballs  as  sources.  In  NSR  Module, 

TPIR^S  =  0  always. 

=  0,  No  fireball  is  to  be  considered. 

>  0,  Fireballs  are  to  be  considered. 

Logical  variable. 

=  .TRUE.,  If  ESURF  is  called  for  the  first  time  from 
Subroutine  SURRAD  and  both  EPSD  and  TKS  are  wanted  in 
addition  to  SFR  as  outputs.  In  NBR  Module,  ESURF 1  = 
.TRUE,  always. 

=  .FALSE.,  If  ESURP  is  not  being  called  for  the  first  time 
from  Subroutine  SURRAD  and  a  recomputation  of  EPSD  and 
TKS  is  not  needed.  This  possibility  occurs  only  if 
Subroutine  SURRAD  is  used  as  a  utility  routine  with  fire- 
bal 1 s  as  sources . 


( cnnti nued) 
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Table  2-12.  Input  and  output  variables  for  Subroutine  ESURF  (Cont'd). 


ATMOUP  Comnon 

TT  -  Ambient  atmospheric  temperature  at  altitude  ZKM.  (deg  K) 

OUTPUT  VARIABLES 
Argwnent  List 

SFR  -  Bidirectional  reflectance-distribution  function. 

f  [M,  DD(M) ,  ZLAM;  THI ,  THR,  PSI].  (1/sr) 

EPSD  -  Directional  emissivity 

=  1  -  Pm(ZLAM;  THR,  2*).  (dimensionless) 

TKS  -  Surface  temperature,  (deg  K) 

POSlTN  Cornnon 

(This  output  obtains  only  if  MSM=2  and  SPCULR=.TRUE . ) 

SPCLAT,  -  North  latitude  and  east  longitude  of  the  point  on  an 
S PC  LON  assumed  smooth  horizontal  surface  for  a  specular 

reflection  from  the  sun  to  the  detector  at  Point  V. 

( radians) 
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SECTION  3 


EARTH  SURFACE  CHARACTERIZATION:  WATER  SURFACE 


3-1  RADIANCE  FROM  A  ' 'TND-RUFFLED  WATER  SURFACE 


3-1.1  Basic  Cox-Munk  Formula 


The  Cox-Munk  formula  [CM-54,  Equation  (9)]  may  be  rewritten  as 


o(u)  E  p(3) 

4  COS  V  COS  8 


(1) 


where  L  is  the  spectral  radiance  of  the  sea  surface  in  the  1  ine-of-sight,  eU) 
is  the  Fresnel  specular  reflectance  of  water  for  radiation  of  wavelength  x  at 
angle  of  incidence  «,  t  is  the  zenith  angle  of  the  detector,  8  is  the  slope 
(or  tilt)  of  the  water  facet  required  to  give  a  specular  reflection  to  the 
detector,  E  (called  H  in  CM-54)  is  the  solar  spectral  irradiance  (normal  to 
the  solar  path)  at  the  sea  surface,  and  p(s)  is  the  probability  for  the  occur¬ 
rence  of  si  ope  8  . 


Stegelmann  and  Garvey  [SG-73b]  derive  an  equation  for  the  radiance 
which  differs  from  Equation  (1).  The  ratio  of  the  radiance  predicted  by  Ste¬ 
gelmann  and  Garvey  to  that  predicted  by  Cox  and  Munk  is 


1 cos  9  .  cos  3 

_  1 

'"CM  cos  j 


(2) 


where  is  the  solar  zenith  angle.  Stegelmann  and  Garvey  seem  to  imply  that 
Equation  (1)  is  incorrect  owing  to  an  incorrect  coordinate  transformation.  We 
have  not  checked  all  of  the  work  in  detail,  so  we  don't  know  wnat  the  discre¬ 
pancies  are  due  to.  Since  the  Cox-Munk  formula  is  widely  used  in  the  litera- 
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ture,  we  will  continue  to  use  it  until  the  cause  of  the  alleged  error  is  iden¬ 
tified  more  explicitly. 


3-1.2  Slope  Distribution  Function 


Cox  and  Munk  [CK-54]  show  that  to  a  first  order  the  slopes  are  nor¬ 
mally  distributed  and  independent  of  wind  direction,  according  to 


p  =— 2"  exp[-(z  2  ♦  z  2 >/a2] 

IO  ^ 


(3a) 


where 


rms  slope  regardless  of  direction 

azimuth  of  the  direction  of  steepest  ascent,  measured  clock¬ 
wise  from  the  sun 


az/ax  »  sin  a  tan  e 
az/ay  =  cos  o  tan  6 


(4a) 

(4b) 


so  that 


(3b) 


3-1.3  Relation  Between  Slope  Variance  and  Wind  Speed 


3-1.3. 1  Cox-Munk  Relation  (regardless  of  direction) 


Cox  and  Hunk  [CH-54,  CM-56]  computed  the  mean  square  slope  ccmpo- 
2  2 

nents,  for  crosswind  (c  )  and  up/downwind  ),  from  their  glitter  photo¬ 


graphs.  For  simplicity  we  shall  use  only  their  results  for  the  mean  square 
2  2  2 

slope,  0  =  oc  +  °l)  ,  regardless  of  wind  direction,  for  a  clean  surface  (as 

opposed  to  an  oil-slick  surface,  e.g.)' 


-3 


=  (3  +  5.14  W)  x  IO"’'  *  0.004 


(5) 


1 
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This  result  is  based  on  measurements  for  wind  speeds  from  about  0.3  to  about 
14  m/sec  [CM-56]. 

Since  one  might  expect  a  to  vanish  as  W  vanishes,  we  have  plotte..  the 
velocity-dependent  portion  of  Equation  (5), 

oq  =  (0.00512  W)1/2  ,  (5a) 

as  the  dash-dot  line  in  Figure  3-1.  We  also  represent  Equation  (5)  in  Figure 
3-1  by  plotting 

a  =  (oQ2  +  0.C03)1/2  (5b) 

as  the  solid  line  and 

0±  =  (a2  ±  0.004)1/2  (5c) 

as  the  dashed  lines. 

3-1. 3. 2  Some  Useful  U' nd-Rel  ated  Conversion  Factors 

Relations  between  knots,  meters  per  second,  and  miles  per  hour  are: 

1  knot  =  0.5144  m/sec  =  1.151  mph. 

Relations  between  sea-states,  Beaufort  numbers,  and  wind  velocity  are  shown  in 
Figure  3-2  (adapted  from  Wu-69a). 

There  is  a  significant  altitude  variation  of  wind  which  must  be  kept 
in  mind  while  reading  the  sun-glitter  l-'terature. 

Duntley  [Ou-54],  in  relating  his  measurements  of  the  distribution  of 
water  wave  slopes  (on  a  lake)  to  those  of  Cox  and  Munk  [CM-54]  (in  the  open 
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Figure  3—2.  Relations  between  sea-states,  Beaufort  numbers,  and  wind 
speed  (from  Wu— 69a). 

sea),  speaks  of  the  "customary  2-to-l  ratio  between  wind  speeds  measured  at  41 
feet  (12.5  meters)  above  the  mean  water  level  (as  for  CM-54)  and  8  inches 
[Du-54]  above  the  wave  crests." 

Cox  [Co-58]  relates  his  laboratory  measurements  to  those  of  Cox  and 
Munk  [CM-54].  Cox  states: 

"Measurements  of  wind  speed  in  the  tank  represent  average 
speed  tnroughout  the  air  channel;  it  may  be  estimated  that  the 
level  at  which  this  speed  is  reached  in  the  boundary  layer 
next  to  the  water  is  4  to  8  cm  above  mean  water  level.  Hence, 
oceanic  measurements  of  wind  speeds  made  at  a  height  of  12.5  m 
must  be  reduced  by  a  large  and  uncertain  correction  factor 
before  a  useful  comparison  can  be  made.  1  assume  the  factor 
i  s 

this  assumes  (1)  a  logarithmic  velocity  profile  near  the 
water  in  both  tank  and  ocean,  (2)  an  effective  height  of  wind 
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observation  in  the  tank  of  6  cm,  and  (3)  a  roughness  length 

in  both  the  tank  and  ocean  of  0.1  cm." 

3-1. 3. 3  Limitations  on  the  Cox-Munk  Relation 

Strong  and  Ruff  [SR-7Qa]  state:  "Recent  results  from  Wu  [6.  Atmos. 

Sci .  2£,  408  (1969)]  show  a  sea-roughness  saturation  for  winds  above  15  m/sec, 
which  means  one  cannot  rely  on  a  changing  slope  distribution  at  higher  wind 
speeds." 

Time  does  not  permit  further  review  of  the  relation  between  slope 
variance  and  wind  speed;  some  additional  relevant  references  include  those  by 
Wu  [Wu-69a,  Wu-70,  Wu-71,  Wu-72a,  Wu-77]  and  Cox  [Co-74]. 

3-2  REFLECTION  GEOMETRY  FOR  A  SPHERICAL  EARTH 

Cox  and  Munk  assumed  a  flat  Earth  in  deriving  their  reflection  geo¬ 
metry.  We  want  to  consider  a  spherical  Earth.  Fortunately.  Levanon  [Le-71b] 
has  derived  the  necessary  equations  for  viewing  the  reflections  from  a  synchro¬ 
nous  satellite.  We  have  not  yet  verified  the  equations  in  detail;  so  far,  we 
have  only  determined,  by  examining  Levanon' s  simplified  formulas,  that  an  east 
longitude  relative  to  the  detector  is  positive  and  a  north  latitude  is 
positive.  Levanon  assumed  his  satellite  was  on  the  equator  and  at  zero-degree 
longitude.  Accordingly,  we  have  modified  some  of  his  definitions  so  as  to 
allow  for  an  arbitary  position  of  the  detector.  We  reproduce  these  (slightly 
modified)  definitions  and  formulas  from  Levanon's  Section  2  [L e- 7 lb ] .  Anyone 
studying  these  equations  should  consult  his  Figure  2  which  illustrates  the 
reflection  geometry. 

Levanon  has  considered  the  following  geometrical  question:  Given  the 
longitude  and  latitude  of  the  sun  and  detector  subpoints,  and  of  the  point  of 
reflection,  what  is  the  tilt  magnitude  and  direction  and  the  angle  of  inci¬ 
dence,  at  that  point  of  reflection? 


The  following  notation  is  adopted: 

0  -  the  center  of  the  Earth 

S  -  the  sun  subpoint 

V  -  the  detector 

P  -  the  point  of  reflection 

i  -  an  index  taking  values  s,  p,  i,  n 

Q.j  -  a  point  defined  by  the  sea  surface  and  a  vector  parallel  to 

i  and  starting  at  0 
e.j  -  north  latitude  of  i  (or  of 

-  east  longitude  of  i  (or  of  Q^)  relative  to  that  of  V 
r  -  radius  of  Earth 

h^  -  altitude  of  detector 

hp  -  altitude  of  P  (if  a  lake,  e.g.) 

i  -  vector  between  the  detector  and  the  point  of  reflection 

n  -  the  normal  required  for  reflection  from  P 

a  -  the  northward  tilt  at  P 

♦  -  the  eastward  tilt  at  P 

b  -  the  magnitude  of  the  total  tilt  at  P 

<*>  -  the  angle  of  incidence 

For  convenience  we  introduce 


Ed  =  {r  +  hp)/( *  +  V ’ 


For  Point  Q^: 


=  tan 


-1 


■e  cos  e  sin  4  -i 

_ d  _ ! E- _ p  ! 

l-C  ,  COS  8  COS  t 
d  P  p  J 


et  =  tan 


-1 


sin  e 
d  P 


2  2 

(1-2  E  j  COS  6  COS  4  +  e  ,  COS  0  ) 

a  p  p  d  p 


T72 


(LI) 


(L2 ) 
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For  Point  Qn: 


®  =  tan 


-1 


r  cos  e£  sin  +  cos  e£  sin  $s"j 


COS  6£  COS  ♦1  +  COS  9S  COS  $s 


(L3) 


0n  -  tan 


-1 


sin  9.  +  sin  e 
*•  s 


2  '  2  '  — — - ~~T/7 — ’ 

[cos  0£  +  COS  9S  +  2  COS  0£  COS  6?  COS  (4£"Oj 


(14) 


At  the  point  of  relection  the  tilt  toward  the  east  is  given  by 


=  *n  -  *p 


(15) 


and  the  tilt  toward  the  north  by 


6  =  0-  8  . 
n  p 


(L6) 


Since  ♦  and  0  are  orthogonal,  the  total  tilt  magnitude  is 


B  =  tan'1  [tan2  8  +  tan2  ♦]1/"2 


(17) 


and  the  angle  of  incidence  is 


tan  1  [tan2  (en  -  es)  +  tan2  ($n  -  ^l]1^2. 


(L8) 


In  Table  3-1  we  have  summarized  the  input  and  output  quantities, 
based  on  Levanon’s  equations. 


3-3  REFLECTANCE  AND  EMISSIVITY 

3-3.1  The  Bidirectional  Reflectance-Distribution  Function  (BRDF) 

The  BRDF  is  defined  as 


.’0 


Table  3-1.  Input  and  output  quantities  for  reflection 
viewed  from  a  detector. 


Input  Quantities  (per  Levanon) 


Object 


Sun  subpoint  (S) 
Detector  subpoint  (V 1 
Reflection  point  { P ) 


East  Longitude  North  Latitude 


♦;=o 

♦p 


Intermediate  Output  Quantities 


Quantity 


Longitude  of  Q 
Latitude  of  Q  1 


Symbol 

:■ 


Le-71b  Eg.  No. 

1 

2 


Longitude  of  Q 
Latitude  of  Qp 

Eastward  tilt  at  P 
Northward  tilt  at  P 


5  (9  )D 

6  ( 10  )C 


Final  Output  Quantities 


Quantity 


Symbol 


Tilt  magnitude  at  P 
Angle  of  incidence  at  P 


Le-71  Eg.  No. 

7  (ll)J 

8  (12) 


Values  relative  to  detector  subpoint  V\ 


For  small-angle  approximation,  which  we  do  not  use. 
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(6) 


fr  =  L/(E  cos  9.) 

where  L  is  the  radiance  along  the  reflected  ray  and  E  cos  e •  is  the  irradiance 
on  the  (horizontal)  sea  surface.  By  using  the  Cox-Munk  formula.  Equation  (1), 
for  L/E,  we  have 


f 


r 


p(8 ) 


cos  u  cos  a  cos  ai 


(7) 


(It  is  not  obvious  that  Equation  (7)  satisfies  the  reciprocity  law,  since  a 
and  id  have  a  very  complicated  dependence  on  the  coordinates.) 

3-3.2  The  Directional-Hemispherical  Reflectance 

The  directional-hemispherical  reflectance,  denoted  here  by  p(x;a^, 

2*),  is  defined  by  the  integral 

p U ; a  .  ,2* )  *  ffr  cos  er  dnr  (8) 

with  fr  given  by  Equation  (7);  it  is  understood  that 

U  5  COS  8r<  (9) 

Gwing  to  the  complexity  of  the  dependence  of  u  and  s  on  e  ,  we  assume  it  is 
impossible  to  perform  an  analytic  integration  indicated  in  Equation  (8). 

For  now,  we  shall  not  pursue  further  the  topic  of  directional-hemis¬ 
pherical  reflectance  for  a  wind-ruffled  sea.  We  were  interested  in  it  mainly 
as  a  self-consistent  way  to  get  the  directional  emissivity,  but  we  shall  con¬ 
tent  ousel ves  with  an  approximate  treatment  as  next  described. 
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3-3.3  The  Directional  Emissivity 


Since  we  are  unable  to  perform  an  analytic  integration  of  the  BRDF  to 
get  the  directional-hemispherical  reflectance  for  a  wind-ruffled  sea,  we  shall 
ignore  the  wind  and  compute  the  directional  emissivity  from  the  expression 
(sometimes  referred  to  as  Kirchhoff's  law) 


(10) 


where  p(e)  is  the  Fresnel  specular  reflectance  next  discussed  in  Section  3-3.4. 

We  note  that  Hall  [Ha-64b]  used  Equation  (10)  for  each  of  the  planes 
of  polarization  of  the  radiation  in  computing  the  polarized  emissivity  of 
(flat  and  calm)  water.  We  expect  that  Equation  (10)  will  provide  reasonable 
answers  even  for  a  wind- ruffled  sea  except  for  large  zenith  angles.  Perhaps 
one  can  later  make  an  improvement  for  such  large  zenith  angles.  Papers  by 
Saunders  [Sa-67a,  Sa-68c]  may  be  helpful. 

3-3.4  Fresnel  Reflectance  of  Water 

3-3.4. 1  Introduction 

The  factor  p(u>)  in  the  Cox-Hunk  formula.  Equation  (1),  is  the  Fresnel 
specular  reflectance  of  water  for  unpolarized  radiation  incident  on  a  plane 
surface  at  angle  of  incidence  The  Solar  Radiation  Model  (23e),  described 
in  Section  4,  provides  (at  the  top  of  the  atmosphere).  Here,  we  present 
the  Fresnel  equations  necessary  to  compute  p(w)  and  necessary  data  for  the 
complex  index  of  refraction  for  an  air-water  interface. 

3-3. 4. 2  Formulas 

We  need  the  formula  for  the  reflectance  p(“>)  of  a  plane  electro¬ 
magnetic  wave  incident  at  an  angle  ;  u  on  a  plane,  absorbing  surface 
(water).  For  an  unpolarized  wave,  and  a  complex  index  of  refraction  N, 


73 


N  =  n-ik. 


(ID 


where  n  is  the  index  of  refraction,  k  is  the  extinction  coefficient,  and  i  = 
/^T,  the  monochromatic  specular  reflectance  is  given  [He-60a,  p.422;  AH-60; 
SC-66a,  p,63]  by  the  expression 


where 


(12) 


rs  =  (c  -  2a+e  +  e^)/(c  +  2a+e  +  e£) 


(13a) 


„  2  2 
c  =  a+  +  a 


13b) 


d  =  sin  u  tan  « 


e  =  cos  w 


(13c) 

(13d) 


2  a?  =  C(n2-k2-sin2a)2  +  4nZkZ]1/Z  t  (nZ-kZ-sin2*) 


(13e) 


At  normal  incidence. 


.10)  •  <a^U4 

(n+ir  + 


(14) 


We  chose  the  Fresnel  formulas  as  given  by  Equations  (12)  and  (13) 
because  (1)  the  form  is  the  simplest  we  have  seen  and  (2)  three  different 
references  agree  on  the  formulas.  (Note  that  Me-60a  uses  N-n(l-ik)  instead  of 
N  =  n-ik.)  Relatively  simple,  but  different  formulas  are  given  by  Friedhiao 
[Fr-69b]  but  the  two  obvious  misprints  leaves  one  uncomfortable  without  verify¬ 
ing  the  overall  fc-mul as  -  Hall  [Ha-64b]  also  gives  the  Fresnel  formulas  but 
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their  form  is  again  different  and  more  complicated  than  that  we  have  chosen. 
Other  references  include  Condon  and  Odishaw  [CO-58,  6-8,  6-113,-114],  Stratton 
[St-41],  and  Born  and  Wolf  [BW-75a].  Boudreau  [Bo-73b]  gives  the  Fresnel 
formulas  in  a  form  attributed  to  Stratton  [St-41], 

3-3. 4. 3  Complex  Index  of  Refraction  of  Water 

The  most  recent  values  of  optical  constants  for  (pure)  water  in  the 
infrared  are  those  given  by  Downing  and  Williams  [DW-75]  who  tabulate  n(v)  ana 
k(v),  the  real  and  imaginary  parts  of  the  complex  index  M  =  n  +  ik,  in  the 
range  from  \=2  yin  to  X  *  1  nrn.  In  the  2-  to  5-um  range  of  interest  to  us,  221 
sets  of  data  are  given  for  wavenumbers  v=2QOQ(10)4000(50)5000,  entered  as  data 
statements  in  Subroutine  FRESNL. 

We  also  note  that  very  recently  Querry  et  al .  [QH-771  determined  the 
complex  refractive  index  in  the  infrared  for  samples  of  surface  water  from 
five  widely  separate  locations:  San  Francisco  Bay,  the  Pacific  Ocean,  the 
Atlantic  Ocean,  the  Great  Salt  Lake  (Utah),  and  the  Dead  Sea  (Israel).  The 
variations  will  be  ignored  for  the  purposes  of  ROSCOE-IR. 

3-4  SLOPE -SHADOWING  FACTOR 

Cox  and  Munk  [CM-55,  p.  70;  CM-56,  o.  470],  in  computing  the  albedo 

of  direct  sunlight  from  a  rough  surface,  take  account  of  the  fact  that  large 

negative  slopes  in  the  component  zy  (where  the  y-azis  is  horizontally  aw3y 

from  the  sun)  are  shadowed  if  they  exceed  cot  a.,  with  9.  the  solar  zenith 

angle.  Cox  and  Munk  include  this  effect  by  setting  the  limits  to  be  (-cot  a.) 

and  (+*)  for  z  (but  t«  for  z  ).  Thus,  while  Cox  and  Munk  include  the  effect 
y  * 

in  their  albedo  calculation,  they  do  not  mention  the  effect  with  respect  to 
the  slope  distribution  function  p(3)  appearing  in  Equation  (1). 

Gordan  [Go-69b]  presents  a  formula,  derived  by  K.  B.  MacAdam,  for  the 
fraction  of  the  light  from  a  source  at  zenith  angle  9.,  which  reaches  a  given 
point  on  the  sea  surface  without  having  first  intersected  the  water  surface  at 
some  other  point.  However,  in  presenting  his  formula,  Gordan  [Go-6'Tb,  p.2U] 
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fails  to  note  that  the  derivation  is  based  on  a  one-dimensional  distribution 
(instead  of  an  isotropic,  two-dimensional  distribution  as  we  would  like). 

Also,  Gordan  [Go-69b]  does  not  address  the  question  of  shadowing  effects  on 
the  reflected  ray. 

Saunders  fSa-67a,  Sa-68c]  has  derived  an  approximate,  slope-shadowi ng 
factor,  b*,  to  account  for  the  fact  that,  as  one  views  near  the  horizon,  the 
slopes  on  the  back  sides  of  the  waves  and  deep  in  the  troughs  are  hidden.  For 
two-dimensional  roughness,  the  factor  S*  is  stated  [Sa-67a,  p.  4648;  Sa-68c] 
to  be 


S*(er)  =  2  {1  +  erf(v)  +  -J*  e'v  >_1  (15a) 

where  v,  given  by 

v  =  a  1  tan  (|  -  er)  =  o'*  cot  er,  (15b) 

is  the  ratio  of  the  inclination  of  the  line-of-sight  to  the  root-mean- square 
slope  (regardless  of  direction)  and  er  is  the  zenith  angle  of  the  reflected 
ray.  Presumably  S*(er)  refers  to  only  the  reflected  ray  not  escaping  in  one 
pass. 


To  permit  a  "bistatic"  dependence  on  the  zenith  angles  of  both  the 
incoming  and  outgoing  rays,  we  propose  using  as  the  shadow  factor 


S(ei,er)  =  S(ei )  S(er) 


(16) 


wi  th 


S(fl)  =  2  {1  +  erf ( y)  +  ~ 

V/¥ 


(17a) 
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V  =  o$  cot  8 


(17b) 


os  =  (5.12  X  10'3  W)1/2  .  (17c) 

For  numerical  reasons,  we  need  to  consider  some  limiting  cases: 

(a)  If  the  wind  speed  W  -  0,  we  set  S(e^,er)  =  1.0. 

(b)  If  9  <  ev2  s  tan-1  (0.5  °s-1),  we  set  S ( e )  *  1.0.  The  introduc¬ 
tion  of  the  angle  e  ^  results  from  the  observation  that  the 
shadowing  factor  is  essentially  unity  for  v  >  2.  Thus,  there  is 
no  need  to  compute  the  shadowing  factor  unless  8  exceeds  the 
angle  (8 for  which  v=2,  for  a  given  wind  speed. 

(c)  If  (0.5»-9)  <  1. 745x10 ”3,  set  8  to  89.9  deg,  an  arbitrarily 
selected  value.  We  do  this  to  avoid  possible  division  by  zero 
or  near-'sro. 

3-5  SPECIAL  CASES 

3-5.1  Location  of  Specular  Point  for  Quiet  Surface  (no  wind)  on  Spherical 

Earth,  Given  Locations  of  Source  and  Detector 

Since  we  want  to  consider  cases  where  the  Earth-central  angle  between 
rays  to  the  sun  and  the  detector  is  not  necessarily  small,  we  cannot  use  the 
"lens"  equation  for  a  spherical  convex  mirror  (and  the  concomitant  paraxial 
rays)  to  aid  in  determining  the  reflection  point  but  must  resort  to  an  itera¬ 
tive  solution. 

3.5. 1.1  Algebraic  Equations  for  Specular  Point 

Assume  we  are  given  the  positions  (i.e.,  the  longitudes  and  latitudes 
of  the  subpoints)  of  the  detector  and  sun,  as  depicted  in  Figure  3-3  (Points 
V1  and  S‘,  respectively).  The  total  central  angle  between  the  rays  DV  and  OS, 
i,  is  given  by 


V 


. . . . . 


Figure  3—3.  Spherical  geometry  for  determining  specular  point. 


(19) 


and  for  each  triangle,  we  have 

cv  +  ev  +  y  =  11 

as  +  3s  +  f  =  ”  ■ 

Thus,  from  Equations  (20a)  and  20b),  we  have 


(20a) 

(20b) 


(21 ) 


Now, 


and 


rv  s  r  +  hy  *  r  cos  Sy  ♦  sy  cos  8V 


(22a) 


r  =  r  +  h  =  r  -OS  a,  +  s,  cos  e. 
s  S  S  S  a 


(22b) 


sin  a. 


(2.3a) 


sin  By  sin  Y 


s, 

*» 

si  n  a. 


(23b) 


Sin  8  sin  y 
s 


(In  the  code,  r  is  the  Earth  radius  plus  the  altitude  assigned  to  the  ■-’oint 
P.)  By  eliminating  s  between  Equations  (?2a)  and  (23a)  and  s^  between  equa¬ 
tions  (22b)  and  (23b),  we  get 


-ti 


(24a) 


or 


sin  a 

rv  =  r  cos  %  +  r  ITITb;  cos  By 


sin  a 

*s " r  cos  as +  r  Tnrr;  cos  8s 


-1  V 

Ev  =  pv  2  ~T  =  cos  av  +  sin  av/un  \ 


-I  s  , 

e$  =  ps  s  ~  =  cos  a$  +  sin  a$/tan  b$ 


(24b) 


(24c) 


(?4d) 


or 


(24e) 

(24f) 


Thus  we  have  four  equations  ((19),  (21),  (24e),  and  (24f))  which  need  to  be 
solved  for  the  four  unknowns  !av,  a$,  6y,  and  &s). 

In  presenting  the  equations  for  the  specular  point  we  have  referred 
to  the  sun  as  the  source.  Indeed,  that  is  the  case  within  the  NBR  Module. 
However,  in  the  original  development  of  the  specular  point  equations,  we 
wanted  to  allow  for  non-solar  sources  at  arbitrary  altitudes,  for  which  our 
specular-point  equations  are  valid. 

If  one  does  specialize  for  a  solar  source,  then  one  can  obtain  (with 
an  appropriate  approximation)  a  pai'-  of  equations  (or,  equivalently,  a  single 
transcendental  equation  if  the  user  prefers)  instead  of  the  set  of  fou-  equa¬ 
tions.  That  is,  for  a  solar  source,  as  in  Section  5-2.2. 1  where  we  obtain  the 


Bv  =  tan  1  [ev  sin  ay  ( 1- e v  cos  oy)  l] 

-  tan  1  [e  sin  a$  ( 1-e ^  cos  o$)  1  ]  . 
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solar  zenith  angle,  we  can  assume  that  the  solar  ray  to  the  reflection  point 
is  essentially  parallel  to  the  ray  to  the  subsolar  point,  an  approximation 
implying  that  the  angle  8g  is  essentially  zero.  Thus,  in  Equation  (21),  if  we 
set  8 s  equal  to  zero  and  eliminate  by  use  of  Equation  (19),  we  obtain 

av  =  (a  -  3v)/2  .  { 24 g ) 


Thus  we  have  two  equations  ((24e)  and  (24g))  which  need  to  be  solved  for  the 
two  unknowns  (ay  and  8y).  Of  course,  one  can  eliminate  ay  between  these  two 
equations  if  he  prefers.  An  iterative  solution  of  the  pair  of  equations 
should  be  analogous  to  that  described  in  Section  3-5. 1.2,  but  we  have  not 
implemented  such  a  solution. 

3-5. 1.2  Iterative  Solution  of  Specular-Point  Equations 

By  using  Equations  (19),  (21),  (24e),  and  (24f),  we  find  the  condi¬ 
tion  to  be  satisfied  is 


E(ay)  =  a  -  2av  +  tan" 


!s  S1n  as 
.^s  cos  “s 


-  tan 


-1 


ev  sin  av 


l-ev  COS  ay j 


-  0  .  (25) 


NOW, 


COS 


dr(a  ) 

s  F'(V  =  -2  +  - 

v  1+es  -  2ts  cos  as 


e  COS  n 
V  V 


1+E 


2c  COS  a 

V  V 


(26) 


According  to  the  Newt'- n-Saphson  method,  our  iteration  formula  is 


cl  ("h 

( n+1 )  (r.)  F(av  ' 

%  =  %  -  tvtst,  * 

F  J  v  ] 


(27) 


82 


It  remains  to  choose  a  starting  value,  >  to  be  used  in  Equation 
(27).  To  do  so,  we  start  with  Equation  (21)  and  substitute  for  ev  and  es 
their  small-angle  approximations  from  Equations  (24e)  and  (24f).  Thus  we  get 


a  + 

V 


a 


a  + 
v 


(28) 


By  solving  Equation  (28)  for  in  terms  of  a,  ev,  and  es,  we  get 


1-t 


(l-cv)  +  (l-c's] 


Our  iterative  procedure  now  becomes 


(0)  . 


v 

(1  -c-vTTTT^ 


(0) 


(O' 


Cs  =  a  '  av 


8^  =  From  Equation  (24e) 


B^  =  From  Equation  (24f) 


F(a^)  =  From  Equation  (25) 


F'U^  ')  *  From  Equation  (26) 


F!  (U)) 

(1)  _  (0)  F(\ 

\  ‘  %  ‘  "  '  TOT, ' 

F  (av  ) 


(29) 

(29a) 

(30a) 

(30b) 

(30c) 

(30d) 

( 30e) 

(30f ) 
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1 1 ) 

We  now  put  ay  into  Equation  {30a)  and  continue  the  looping  over 
Equations  (30)  until  we  satisfy  the  condition 

<4n)  ♦  ejn)  -  u'n)  ♦  e‘n))  =  6(n)  <  2  x  lO'5  .  (31) 

3-5. 1.3  Angle  of  Incidence  and  Reflection 

From  Figure  3-4  and  Equation  (20a),  we  have 

ui  =  s-y  ~  ay  +  8y  ,  (32) 

with  av  and  By  given  by  the  iterative  solution  in  Section  3-5. 1.2. 

3-5. 1.4  Geographic  Coordinates  of  Specular  Point 

Determination  of  the  geographic  coordinates  of  the  specular  point, 
given  those  for  the  sun  and  detector  and  the  central  angles  a  and  ay,  is  pro¬ 
vided  by  Subroutine  GCRCLE,  discussed  in  Section  3-6.5. 

3.5-2  Radiance  and  BRDF  for  Specular  Reflection  from  Smooth  Water 

To  obtain  the  radiance  for  specular  reflection  from  a  smooth  water 
surface,  one  car  follow,  e.g.,  the  detailed  development  (given  for  another 
purpose)  by  Cox  and  Munk  [CM-54]  or  immediately  write  the  answer  by  assuming 
conservation  of  radiance  for  reflection  from  a  perfect  reflector.  For  the 
latter  alternative  we  ha^o  for  the  specular  radiance 

'"spec  =  <“> 

where  p(u)  and  E  are  the  same  as  in  Equation  (II  and  c  is  the  angul ar  radius 
of  the  sun  (16.0  minutes). 


The  BRUF  corresponding  to  Equation  (33)  is  defined  to  be 


f 

r 


Lspec/(“  cos  9i> 


(34) 


so  that 


f 

r 


p(w)/(it 


2 


COS  0^)  . 


(34a) 


3-5.3  A  Limiting  Form  of  Basic  Cox-Munk  Formula 

The  Cox-Munk  basic  formula.  Equation  (1),  explicitly  including  the 
formula  for  the  probability  for  the  occurrence  of  slope  8,  is 


'CM 


.  oU) 


cos  u  cosV 


9  2 

exp(-o  tan  8) 


(35) 


For  a  zenith  sun  and  downward- looking  detector,  the  slope  is  zero  and  the 
zenith  angle  of  the  reflected  ray  equals  the  angle  of  incidence,  i.e., 


B  "  0 

u  =  ui  =  0 , 


so  that 


We=€) 


t(0)  E 

"T~'  ' 


.  ab  , 


We  note  that  this  radiance  is  smaller  than  the  specular  value  given  by  Equa¬ 
tion  (33)  by  the  ratio 


lcmu=°) 


L. 


spec 


(37) 


since 


(4,65  x  10~3)2 
(3  +  5.12VJ)  x  10'3 


«  1  . 


(38) 


The  ratio  given  by  Equation  (37)  will  be  obtained  in  another  way  in  Section 
3-5.4. 


3-5.4  Relation  8etween  Radiances  from  Smooth-  and  Rough-Water  Surfaces 

Saunders  [Sa-67,  p.  4116]  makes  a  simple  estimate  of  the  radiance 
reflected  from  a  rough-water  surface  compared  with  that  from  a  smooth-water 
surface.  Re  notes  that  the  angular  radius  of  the  glitter  pattern  is  approxi¬ 
mately  2 a  (as  is  readily  seen  from  Figure  3-5)  and  hence  the  solid  angle  it 
subtends  is  «(2a)  ,  where  a  is  the  root-mean- square  slope.  The  solid  angle 
subtended  by  the  mirror  image  of  the  sun  is  [according  to  Saunders]  where 

£  is  the  angular  radius  of  the  sun's  disk.  (Saunders  did  not  account  for  the 
solid  angle  of  the  mirror  image  of  the  sun  being  reduced  for  an  observer  at 
high  altitudes,  as  explained  below.)  Saunders  then  states  that  if  the  total 
radiant  energy  reflected  from  the  surface  is  independent  of  roughness  (an 
assumption  conmented  upon  below),  then  the  ratio  of  the  intensity  in  the 
glitter  pattern  to  the  intensity  in  the  mirror  image  is  in  the  inverse  ratio 
of  the  solid  angles  that  they  subtend,  namely.  It /2a)  .  Note  that  this  ratio 
is  just  the  ratio  given  by  Equation  (37). 

A  smooth-water  surface  on  the  spherical  Earth  acts  like  a  convex 
spherical  mirror  of  radius  R  The  virtual  image  of  the  sun  is  formed  at  a 

depth  R  /2  below  the  surface  and  the  size  of  the  sun's  radius  in  this  image  is 

c  2 
e  Hg/2.  The  area  of  the  virtual  image  is  «U  R  /2)  and  the  solid  angle  at 

the  observer,  at  an  altitude  h  from  the  mirror  surface,  is 


(e  te/2)2 
!h  a  Re/2)? 


R  ,/2  1 

C _ _ 

h  *  V2  I 


(39) 


Figure  3—5.  Geometry  for  simple  estimate  of  angular  radius 
of  glitter  pattern. 

for  h  *  0  (39a) 

|  ite2  (Re/2h)2  for  h  »  Re/2  .  (39b) 

The  assumption  made  above  by  Saunders  -  that  the  total  radiant  energy 
reflected  from  the  surface  is  independent  of  the  roughness  -  is  adequate  for 
the  order-of-magni tude  estimate  being  made  but  it  is  not  strictly  correct. 

Cox  and  Murk  [CM-55,  Section  3;  CM-56]  show  that  the  elbeao  of  a  rough  surface 
to  direct  sunlight  is  slightly  larger  at  high  sun  angles  and  substantially 
smaller  at  low  sun  angles  than  the  albedo  of  a  flat  surface. 
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SUBROUTINES  FOR  CHARACTERIZATION  OF  HATER  SURFACE 


The  relationship  between  the  routines  characterizing  a  water  surface 
and  Subroutine  ESURF  (for  non-water  surface  characterization)  is  shown  in 
Figure  2-12. 

3-6.1  Subroutine  GLITTR 

Subroutine  GLITTR  is  called  from  Subroutine  ESURF  when  the  line-of- 
sight  from  the  detector  (either  a  fictitious  one  at  Point  V  in  the  NBR  Module 
or,  more  generally,  a  real  detector  which  may  be  in  a  satellite)  intersects  a 
wind-ruffled  water  surface  prescribed  by  the  user.  Subroutine  GLITTR  provides 
(la)  the  bidirectional  reflectance-distribution  function  (BRDF)  for  the  wind- 
ruffled  water  surface  and  (lb)  the  directional  emissivity  of  a  smooth-water 
surface  as  an  approximation  to  that  for  the  wind-ruffled  water  surface  at  the 
intersection  (Point  P)  of  the  optical  1 ine-of-sight  from  the  detector  ana,  if 
requested  (by  the  logical  variable  SPCULR  =  .TRUE,  in  the  argument  list),  (2) 
the  geographical  coordinates  of  the  point  on  an  assumed  smooth  horizontal 
surface  (taken  to  be  at  the  same  altitude  as  Point  P)  for  a  specular  reflec¬ 
tion  of  a  ray  from  the  source  to  the  detector.  Only  the  directional  emis- 
sivity  at  Point  Pis  provided  if  there  is  no  source. 

See  Table  3-2  for  a  summary  of  inputs  and  outputs  for  Subroutine 
GLITTR  and  Figure  3-6  for  a  chart  of  information  flow  within  Subroutine  GLITTR. 

3-6.2  Function  CANGLE 

Function  CANGLE  is  called  from  Subroutines  RINOUT  and  O' 1TTR  to  com¬ 
pute  the  Earth-central  angle,  CANGLE,  between  two  central  rays  to  Points  Pi 
and  P2,  given  the  latitudes  and  longitudes  of  Points  PI  and  P2.  Application 
of  the  cosine  law  for  a  side  of  the  spherical  t-iangle  Pl-N-P?  in  figure  3-7 
gives  the  relation 

cos  '  cos  cos  f 2 " ^ ? 1  *  sin  sin 


Table  3-2.  Input  and  output  variables  for  Subroutine  GLITTR. 


INPUT  VARIABLES 
Argument  List 
THETl  - 

WIND  - 
SPCULR  - 


ZLAM  - 
I  DAY  - 

IF  IRES  - 


ESURF1  - 


TECTOR  Common 

OETALT ,  - 

DETLAT, 

OETLON 


Zenith  angle  of  the  source  at  the  intersection  point  (?)  of 

the  1 ine-of-sight  from  the  detector  to  the  Earth's  water 

surface,  (radians) 

Kind  speed  at  41  feet  above  sea  level,  (meters/sec) 

Logical  variable. 

=  .TRUE.,  Compute  coordinates  of  specular  reflection  point 
for  an  assumed  smooth  surface. 

=  .FALSE.,  Do  not  compute  such  coordinates. 

Wavelength,  (um) 

Index  for  diurnal  conditions  at  Point  P. 

=  0,  Solar  zenith  angle  >90  deg. 

=  1,  Solar  zenith  angle  £90  deg. 

Flag  for  inclusion  of  fireballs  as  sources. 

=  0,  No  fireball  is  being  considered  (always  the  case  in 
the  NBR  Module). 

>  0,  Fireballs  are  being  considered  as  sources. 

Logical  variable. 

=  .TRUE.,  If  Subroutine  ESURF  is  called  for  the  first  time 
from  Subroutine  SURRAD  and  EPSD  is  wanted  as  an 
output  (always  the  case  in  the  NBR  Module). 

=  .FALSE.,  If  Subroutine  ESURr  is  not  being  called  for  the 
first  time  from  Subroutine  SlRRAD  and  a  recom¬ 
putation  of  EPSD  is  not  needed. 


Detector  (at  Point  V)  altitude,  north  latitude,  and  east 
longitude,  (km,  radians,  radians) 

( conti nued) 
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Table  3-2.  Input  and  output  variables  for  Subroutine  GLITTR  (Cont'd). 


OETZEN  -  Detector  (at  Point  V)  zenith  angle  at  Point  P.  (radians) 

POSITN  Common 

POSALT, 

POSLAT , 

POSLON 

SOURCE  Common 

SRC ALT  -  Altitude  of  source,  if  not  the  sun.  (km) 

SRCLAT,  -  North  latitude  and  east  longitude  of  source  (sun  in  NBR 
SRCLON  Module,  O'  fireball,  more  generally),  (radians) 

SRCFLG  -  Flag  characterizing  source. 

=  1,  Sun  is  source  (always,  in  NBR  Module). 

=  2,  Fireball  is  source  (never,  in  NBR  Module). 

OUTPUT  VARIABLES 
Argument  Li  St 

SFR  -  3 (directional  refl ectance-distribution. function  for  a  wind- 
ruffled  water  surface  at  Point  P.  ( sr~ 1 ) 

EPSO  -  Directional  enissivity  (of  a  smooth-water  surface  as  an 

approximation  to  that  for  a  wind-ruffled  surface)  at  Point 
P  toward  the  detector  at  Point  V.  (dimensionless) 

POSITN  Conrion 

(This  output  obtains  only  if  SPCULR  -  .TRUE.) 

SPCLAT,  -  North  latitude  and  east  longitude  of  the  point  on  an  assumed 
SPCLON  horizontal  surface  for  a  specular  reflection  from  the 

source  to  the  detector  at  Point  V.  (radians) 


-  Altitude,  north  latitude,  and  east  longitude  of  intersection 
on  Earth's  surface  (Point  P)  of  1 ine-of-sight  from  detector 
(at  Point  V).  (km,  radians,  radians) 
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Figure  3—7.  Earth  geometry  used  in  deriving  formulas  tor  Function 
CANGLE  and  Subroutine  GCRCLE. 


COS  a 
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=  sin  8j  sin  *  cos  cos  e2  cos  U2-ij) 


or 

CASCLE  = 
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*  cos"^  [sin  P1LAT  sin  P2LAT  +  cos  P1LAT  ccs  P2LAT  cos  (P2l.0N-Pll.0N)]  . 
See  Table  3-3  for  a  sutmary  of  inputs  and  outputs  for  Function  CANGLE. 

Table  3-3.  Input  and  output  variables  for  Function  CANGLE. 


INPUT  VARIABLES 

Argument  List 

P1LAT,  -  North  latitude  and  east  longitude  of  Point  Pi-  (radians) 
PI  LON 

P2LAT,  -  North  latitude  and  east  longitude  of  Point  Po-  (radians) 
P2L0N 

OUTPUT  FUNCTION 

CANGLE  -  Earth-central  angle  between  rays  to  Points  Pj  and  P^- 
(radians) 


3-6.3  Function  ERF 

Function  ERF  is  the  error  function,  based  on  the  rational -approxi¬ 
mation  formula  (7. 1.2.6)  in  AS-64. 

3-6.4  Subroutine  FRESNL 

Fresnel  specular  reflectance  of  a  (smooth)  water  surface  is  discussed 
in  Section  3-3.4.  In  Subroutine  FRESNL,  the  complex  index  of  refraction  of 
water  as  given  by  Downing  and  Williams  LDW-7b]  is  stored  as  data  and  the  Fres¬ 
nel  reflectance  is  computed  from  Equations  (12)  through  (13e)  in  Section 
3-3.4.  Table  3-4  summarizes  the  inputs  and  outputs  for  Subroutine  FRESNL. 
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Table  3-4.  Input  and  output  variables  r  Subroutine  FRESNL. 


INPUT  VARIABLES 

Argument  List 

ZLAM  - 

Wavelength,  (am) 

OMEGA  - 

Angle  of  incidence  (with  respect  to  normal  to  smooth  ele¬ 
ment  of  water  surface),  (radians) 

OUTPUT  VARIABLE 

Argument  List 

RHO  - 

Fresnel  monochromatic  reflectance  of  plane,  unpolarized 
electromagnetic  wave  incident  at  angle  w  on  plane,  ab¬ 
sorbing  surface  of  water  with  complex  index  of  refraction 
N=n-ik  obtained  from  Downing  and  Williams  [DW-75].  (di¬ 
mensionless) 

3-6.5  Subroutine  GCRCLE 

For  three  points  P^,  ,  and  P^  on  a  great  circle.  Subroutine  GCRCLE 

computes  the  latitude  and  longitude  of  the  intermediate  point  P^,  given  the 
latitudes  and  longitudes  of  the  end  points  Pj  and  P^,  the  central  angle 
between  the  central  rays  to  and  P3,  and  the  central  angle  between  the 
central  rays  to  and  P^. 

Application  of  the  cosine  law  for  a  side  of  the  spherical  triangle 
P i -N - P ^  in  Figure  3-7  gives  the  relation 

cos  ( -J-e 3 )  =  cos  a13  cos  (^-6^)  +  sin  q13  sin  (-^-0^  cos  a 


or 


cos  A 


sin  o3  -  cos  sin 
sin  aj3  cos  0^ 
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Similarly,  for  triangle  Pj-N-P2  in  Fi9ure  3'7»  we  have 


cos  (-|-e2)  -  cos  a ^  cos  +  sin  ai2  sin  *1T0l'  cos  X 

or 

sin  =  cos  s'n  +  s’n  ai2  cos  e\  cos  x  * 

Application  of  the  sine  law  to  the  spherical  triangle  Pj-N-Pg  in  Figure  3-7 
gives 


sin  (.>2-  #  } 

.  sin  X 

sin  ct  ^  ^ 

sin(-^-e2 ) 

or 

sin 

=  sin  a ^  sin  x/cos  a2. 

Thus, 

t>2  =  ^  +  U 

2'4^)  x  SIONll.O,  . 

If 

1  <t>3"<P  1 1  >  *  » 

4*2  ~  —  i a* ^  ^  x  SIGNd.O. 

If 

t2  <  0.0, 

“P  2  =  *  2  +  ^  ’ 

If 

$  2  —  * 

4  2  1 2  —  * 

See  Table  3-5  for  a  summary  of  the  inputs  and  outputs  for  Subroutine 

GCRCLE . 
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Table  3-5.  Input  and  output  variables  for  Subroutine  GCRCLE . 


INPUT  VARIABLES 
Argument  Li st 

PlLAT,  -  North  latitude  and  east  longitude  of  Point 
PILON 

P3LAT,  -  North  latitude  and  east  longitude  of  Point  I 
P3L0N 

ALP13  -  Earth-central  angle  between  rays  to  Points  1 
( radians) 

ALP  12  -  Earth-central  angle  between  rays  to  Point  P 

( radians) 

OUTPUT  VARIABLES 
Argument  list 

P2LAT,  -  North  latitude  and  east  longitude  of  Point  i 
P2L0N 


Qfi 


(radians) 

(radians) 

1  and  P3’ 
and  P2 . 

2*  (radians) 


SECTION  4 


SOLAR  RADIATION 


4-1  INTRODUCTION 

4-1.1  Requirements  for  the  Model 

Solar  radiation  must  be  modeled  because  it  is  a  source  of  sensor 
illumination,  and  atmospheric  and  fireball  species  excitation,  through  scatter¬ 
ing  and/or  reflection  from  the  Earth's  surface,  clouds,  aerosols,  and  dust, 
either  naturally  occurring  or  caused  by  the  fireball. 

4-1.2  Model  Function 

The  Solar  Radiation  Model  (23e)  consists  of  a  statement  of  the  solar 
spectral  irradiance,  at  the  top  of  the  Earth's  atmosphere,  in  the  spectral 
range  from  2  to  5  um  (or  5000  to  2000  cm-1). 

4-2  DATA  BASE 

As  a  result  of  extensive  work  by  NASA  related  to  the  design  of  space 
vehicles,  an  engineering  standard  for  solar  irradiance  has  been  adopted  by  the 
American  Society  of  Testing  and  Materials  (ASTM)  [Th-74a,  Th-76],  We  have 
adopted  the  tabular  data  presentee  by  Thekaekara  [Th-74a].  Columns  1  and  2  in 
Table  4-1  present  data  abstracted  fora  Table  I  of  Th-74a  in  the  spectral  range 
from  2  to  5  pm  at  0.1  um  intervals.  These  data  are  plotted  in  Figure  4-1  as 
the  circled  points  and  have  been  fitted  by  the  following  piecewi se-conti nuous 
power-law  expression: 
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Table  4-i,  Solar  spectral  irradiance  (2  to  5  yin). 


> 

E  3 

E  b 

E  d 

E  e 

E  f 

A 

A 

A 

A 

' ) 

w 

u 

Percent0 

lf'  photon 

1C^  photon 

10~7  W 

2 

2 

2 

2  -1 

2  -1 

-1 

m  um 

Ifl  yffl 

Error 

cm  sec  um 

cm  sec  cm 

cm  cm 

cm 

2.0 

103 

104.62 

1.5 

10.4 

4.15 

41.2 

5000 

2.1 

90 

90.61 

0.7 

9.51 

4.20 

39.7 

4762 

2.2 

79 

79.00 

U.Q 

8.75 

4.23 

38.2 

4545 

2.3 

69 

69.30 

0.4 

7.99 

4.23 

36.5 

4348 

2.4 

62 

61. 13 

-1.4 

7.49 

4.31 

35.7 

4167 

2.5 

55 

54.20 

-1.5 

6.92 

4.33 

34.4 

4000 

2.6 

48 

48.29 

0.6 

6.28 

4.25 

32.4 

3846 

2.7 

43 

43.20 

0.5 

5.84 

4.26 

31.3 

3704 

2.8 

39 

38.81 

-0.5 

5.50 

4.31 

30.6 

3571 

2.9 

35 

35.00 

0.0 

5.11 

4.30 

29.4 

3448 

3.0 

31 

29.90 

-3.7 

4.68 

4.21 

27.9 

3333 

3.1 

26.0 

25.67 

-1.3 

4.06 

3.90 

25.0 

3226 

3.2 

22.6 

22.15 

-2.0 

3.64 

3.73 

23.1 

3125 

3.3 

19.2 

19.19 

0.0 

3.19 

3.47 

20.9 

3030 

3.4 

16.6 

16.71 

0.6 

2.84 

3.28 

19.2 

2941 

3.5 

14.6 

14.60 

0.0 

2.57 

3.15 

17.9 

2857 

3.6 

13.5 

13.33 

-1.2 

2.45 

3.17 

17.5 

2778 

3.7 

12.3 

12.21 

-0.7 

2.29 

3. 14 

16.8 

2703 

3.8 

11.1 

11.21 

0.9 

2.12 

3.07 

16.0 

2632 

3.9 

10.3 

10.31 

0.1 

2.02 

3.08 

15.7 

2564 

4.0 

9.5 

9.50 

0.0 

1.91 

3.06 

15.2 

3550 

( continued) 
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Table  4-1. 

Solar  spectral  irradiance  (2  to  5  pm) 

(Cont'dl . 

1 

E  a 

X 

U 

E  b 

W 

Percentc 

E  d 

X 

10 16  photon 

E  6 

wJ 

10 13  photon 

_  f 

t 

w 

10'7  W 

UJ 

pm 

v?  pm 

Error 

2 

cm  sec  pm 

2  ~1 
cm  sec  cm 

crn^  cm" 3 

cm  3 

4.1 

8.70 

8.58 

-1.4 

1.80 

3.02 

14.6 

2439 

4.2 

7.80 

7.77 

-0.4 

1.65 

2.91 

13.3 

2381 

4.3 

7.10 

7.05 

-0.7 

1.54 

2.84 

13.1 

2326 

4.4 

6.50 

6,42 

-1.3 

1.44 

2.79 

12.6 

2273 

4.5 

5.92 

5.85 

-1.2 

1.34 

2.72 

12.0 

2222 

4.6 

5.35 

5.34 

-0.1 

1.24 

2.62 

11.3 

2174 

4.7 

4.86 

4.89 

0.6 

1.15 

2.54 

10.7 

2128 

4.8 

4.47 

4.48 

0.3 

1.08 

2.49 

10.3 

2083 

4.9 

4.11 

4.12 

0.2 

1.01 

2.43 

9.87 

2041 

5.0 

3.79 

3.79 

0.0 

0.954 

2.38 

9.47 

2000 

aFrom 

Th-74a, 

Table  I 

. 

Computed  from  fit  function.  Equation  (1). 

'Percent  error  in  f i t- function  values  with  respect  to  Column-?  data. 
3 

Computed  from  Equation  (4)  and  Column-2  data, 

ft 

“Computed  from  Equation  (51  and  Column-2  data. 

^Computed  from  Equation  (6)  and  Column-Z  data. 
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Solar  Spectral  I  rradiance,  W  m  z  jjm' 


Figure  4—1. 


Solar  spectral  irradiance  from  2  to  5  (units  of 
W  m— ^  ), 


LOO 


where 


E,  ,(x/2.2)‘ 

C.  ,  L. 


E29(x/2.9 r 


E  ^ ( W  m-2  um  1 )  =  ^ 


1°9  E2_g  -  log  E22 
a  =  log  -  Toq  TTF 

109  E3.5  '  109  E?< 


b  = 


'"'log  3.5  -  log'TTS 


log  E-  0  -  log  E3  5 
c  -  -T^g  4-0  -  Tog'  33 


d  = 


log  E50  -  log  E40 
log  5.0  -  log  4.0 


E2 . 2  “  79 


E2.9  “  35 


E3.5  =  14’6 


E4.0  =  9’5 


E5 .0  =  3*79 


2.0  <  x  <  2.9 

2.9  <  x  <  3.5 


(la) 

(lb) 


35(>/3.5)c 

3.5  <  X  <  4.0 

(lc) 

4.0  <  X  5  5.0 

(Id) 

-  =  -  2.94693 

(2a) 

1  =  -  4.64938 

(2b) 

-  =  -  3.21819 

(2c) 

-  =  -  4.11809 

(2d) 

(3a) 

(3b) 

(3c) 

(3d) 

<3e) 
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Evaluation  of  the  fit  function  gives  the  values  and  percentage  error's  '' n 
Columns  3  and  4  of  Table  4*1,  respectively. 

By  using  the  conversion  relations  derived  in  Section  4-4,  we  can 

2 

convert  the  units  of  the  soectral  irradiance  f’-om  EdW/(m  jin)]  to  E  [photon/ 

2  '  *  x 
(cm  sec  vm)]  by  writing 


£ 

x 


photon 

2 

cm  sec  um 


x 


-A  Photon 

( 10 ~  /hch  W  sec 

(102  cm/m) 2 


or 


r 

i 


c 


photon 

2 

cm  sec  um 


t 


5.03404  x  1014  v  Ex 


(4) 


The  product  he  is  expressed  in  units  of  J  cm  and  x  in  um.  Similarly,  we  can 
2  2-1 

convert  from  t  [W/(m  ym)]  to  E  [photon/(cm  sec  cm  )]  by  writing 


photon 

W 

~~2  “  d 

^  X 

T~ 

cm  sec  an 

m  ym 

( 10-4/hc ) 


(lO4-  cm/m)2 


photon 
>  W  sec 

inr;  =z-vi#  - 

10  x  cm  ,iir. 


or 


photon 

~2  n- 

cm  sec  cm 


5.03404  x  10 


10  ^ 


H 

— 
m  yin 


(5) 


2  .  _  2-1 

lie  can  convert  from  E  [ W / ( m  ym)j  to  E  [W/dm  cm  )]  by  writing 

\  UJ 


E 

W 

=  C 

w 

a) 

2  -T 

cm  cm 

m  um 

— 2 - 2  V  ^2  H 

(10  cm/m)  10  x  cm  /u  in 


102 


(6) 


r 

_  A _ 

=  ip-8  -.2  f 

\ 

w 

T 

-I 

—? 

, 

cm 

cm 

n  ’  urn 

•?  2  - 1 

The  quantities  E , [pnoton/( cm"  sec  ^e)],  E  [photon/(cm  sec  cn  )j,  and  E  [ W / 
2-i  V 

(cm  cm  1]  are  given  in  Columns  5,  6,  and  7  of  Table  4-1,  respectively,  and 
are  plotted  in  Figures  4-2,  4-3,  and  4-4,  respectively- 

4-3  SUBROUTINE  SOLRAO 

for  Subroutine  SOLRAQ,  see  Table  4-2  for  a  summary  of  tne  input  and 
output  variates  and  Figjre  4-^  for  a  flow  chart. 

Table  4-2.  Input  id  output  variables  for  Subroutine  SOLRAO, 

INPUT  VARIABLES 

Argument  List 

<  -  Index  specifying  units  for  input  and  output 

(Wavenumber  (cm-1)  for  K-1,2.3,4 

B  - 

(Wavelength  ( „m)  for  K=5,6,7,8 

0UTf\JT  VARIABLES 
Argument  List 

E  -  Solar  spectral  irraaiance  at  the  top  of  the  Earth's  atmo- 
spnere,  in  units  of'. 


photons  cm  c  sec  *7 cm  ^ 

K 

=  1,*> 

-2  -1  -I 

photons  cn.  sec  urn 

r 

=  2,6 

-2 ,  -1 

W  cm  .-  cm 

K 

=  3,7 

W  ir,"?  um  ^ 

K 

=  4,3 
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The  circled  points  correspond  to  the  data  in  column  2  of  Table  4  -1  and  the  solid 
curve  to  the  fit  function. 


ujo  /  g_uj3  uojo^d  j.^01  'aoueipwi;  |BJpadS  jei°S 
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Solar  Spectral  Irradiance,  10  9  W  cm  ^  !  cm 


Figure  4—5.  Flow  chart  for  Subroutine  SOLR  AD. 


4-4 


SOME  CONVERSION  RELATIONS 


Some  useful  conversion  relations  may  be  derived  as  follows: 

I.  Energy  photon'1  =  hv  =  hc/xcm  =  hcu,  W  sec 

where  he  is  expressed  in  J  cm  and  <*>  in  inverse  centimeters.  If 
we  use  the  values  of  h  and  c  from  Cohen  and  Taylor  [CT-73b, 
Table  33.1  on  p.  717],  we  have 

he  =  -6261767x  10~ - -c  x  2.997924  x  10 10  cm/sec 

10'  erg/J 

he  *  1.98648  x  10‘23  J  cm 
1/hc  =  5.03404  x  1022  J'1  cm-1 

A1  so , 


-1  4 

Energy  photon  =  10  hc/x,  W  sec 

where  x  is  in  micrometers;  thus, 

-4  -1 

1  Watt  =  10  x/hc,  photon  sec 

=  1/hcw,  photon  sec'1 

2.  x  =  104/o> 

| dx/du|  =  104/«2 

-1  4  2 

micron  wavenumber  =  10  /u 
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SECTION  5 


EARTH  SURFACE  RADIANCE 

5-1  INTRODUCTION 

The  Earth  Surface  Radiance  Model  (23b)  provides  (essentially),  at  the 
Point  P  where  the  optical  1 ine-of-sight  from  the  detector  (which  is  fictitious 
in  the  NBR  Module)  at  Point  V  intersects  the  Earth's  surface,  the  upwelling 
spectral  radiance  directed  toward  the  detector.  The  model  provides  two  compo¬ 
nents  of  the  radiance:  (1)  thermal  radiation  emitted  at  Point  P  and  (2) 
source  radiation  reflected  at  Point  P.  In  the  NBR  Module,  the  only  source  is 
the  sun.  Reflected  sky  radiance  is  not  included. 

Strictly,  the  surface-reflected  source  radiation  is  actually  provided 
in  an  unattenuated  form  together  with  the  path  parameters  (areal  density  U  (cm 
at  STP)  and  the  product  UP  (atm  cm,  with  P  the  pressure))  integrated  along  the 
incoming  path  from  the  source.  These  parameters  are  required  as  input  to  a 
computation  of  the  molecular  absorption  over  the  total  two-leg  path.  The 
aerosol  transmittance  along  the  incoming  path  from  the  source  to  Point  P  is 
also  provided. 

The  principal  routine  in  the  Earth  Surface  Radiance  Model  is  Sub¬ 
routine  SURRAD  ( surface  radiance) ,  which  makes  a  number  of  calls  as  shown  in 
Figure  5-1.  Subroutine  SURRAD  is  discussed  in  Section  5-2,  Subroutine  RINOUT 
( ray-in-out)  computes  the  geometry  for  the  reflected  ray  and  is  discussed  in 
Section  5-3.  Subroutine  ESURF  has  been  discussed  in  Section  2-5  and  Sub¬ 
routine  SOLRAD  in  Section  4-3.  The  rest  of  the  routines  used  in  Model  23b, 
most  of  which  were  obtained  from  other  organizations,  are  described  in  Section 
5-4. 

5-2  SUBROUTINE  SURRAD 

Table  5-1  summarizes  the  input  and  output  variables  fur  Subroutine 

SURRAD. 


no 


Figure  5--1.  Routines  called  directly  from  the  principal  routine  (SURRAD)  in  the  Earth  Surface 
Radiance  Model,  For  subsequent  calls,  see  Figure  7-1 . 


Ill 


Table  5-1.  Input  and  output  variables  for  Subroutine  SURRAD. 


INPUT  VARIABLES 


Argument  List 

IDETEC  -  Flag  for  nature  of  detector  location. 

=  1,  If  detector  is  at  a  satellite  position  (SATLAT , 

SATLON,  SATALT)  specified  in  SATELL  Common.  (This 
mode  is  not  used  in  the  NBR  Module. ) 

=  2,  If  detector  is  at  a  position  (DETLAT,  DtTLON ,  DETALT) 
specified  in  TECTOR  Common.  (This  latter  option  is 
used  when  Subroutine  SURRAD  is  called  from  Subroutine 
UPWELL  in  the  N8R  Module.) 

MSM  -  Index  for  category  of  surface  material  (see  Table  2-12  for 

Subroutine  ESURF). 

DD  -  Additional  descriptor  for  selected  surface  material  (see 

Table  2-12  for  Subroutine  ESURF). 

SPCULR  -  Logical  variable. 

=  .TRUE.,  Compute  coordinates  of  specular  reflection  point 
on  an  assumed  smooth  horizontal  water  surface. 

=  .FALSE.,  Do  not  compute  coordinates  of  specular 
reflection  point. 

(SPCULR  appears  in  SURRAD  only  to  be  passed  to  Subroutine 

ESURF.) 


IUP  -  Altitude-loop  index  in  Subroutine  UPWELL. 

JUP  -  Nadir-loop  index  in  Subroutine  UPWELL. 

KUP  -  Azimuth-loop  index  in  Subroutine  UPWELL. 

LUP  -  Wavenumber-loop  index  in  Subroutine  UPWELL. 

(Each  of  the  previous  four  indices  should  be  set  to  unity 
in  a  call  from  any  routine  other  than  Subroutine  UPWELL, 
which  would  be  a  use  outside  of  the  NBR  Module.) 

ZLAM  -  Wavelength.  ( um) 

( conti nued) 
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Table  5-1.  Input  and  output  variables  for  Subroutine  SURRAD  (Cont'd). 


I F I  RES  - 


FIRBAL  Common 

FBALT(I),  - 
FBLAT(I) , 
FBL0N(I  ) , 
FBRINT ( I ) 

POSITN  Common 

POSALT,  - 
POSLAT, 
POSLON 
C12ALT,  - 
C12LAT , 
C12L0N 


SATELL  Common 

SAT ALT,  - 

SATLAT, 

SATLON 

SOLARP  Common 

SOLLAT,  - 
SOLLON 

SOURCE  Common 


Flag  for  inclusion  of  fireballs  as  sources. 

=  0,  No  fireball  is  to  be  included  (always  true  in  N3R 
Module  where  Subroutine  SURRAD  is  called  from  Sub¬ 
routine  UPWELL) . 

>  0,  Fireballs  (IF  IRES ,  in  number)  are  to  be  included  with 
position  and  radiant  intensity  specified  in  FIRBAL 
Common . 

(not  used  in  NBR  Module) 

Fireball-I  altitude,  north  latitude,  east  longitude,  and 

spectral  radiant  intensity. 

[km,  radians,  radians,  W/(sr  cm  1] 


Altitude,  north  latitude,  and  east  longitude  of  Point  P  at 
which  1 ine-of-sight  from  (fictitious)  detector  at  Point  V 
intersects  Earth's  surface,  (km,  radians,  radians) 

Altitude,  north  latitude,  and  east  longitude  of  Point  C  at 
which  line-of-sight  (directed  toward  Point  P  from  fictitious 
detector  at  Point  V)  intersects  the  12 -km  altitude  surface, 
(km,  radians,  radians) 

(not  used  in  NBR  Module) 

Satellite-borne  detector  altitude,  north  latitude,  and  east 
longitude,  (km,  radians,  radians) 


Subsolar-point  north  latitude  and  east  longitude,  (radians) 


(The  variables  in  this  Common  are  returned  from  a  call  to  Subroutine 
RINOUT.  In  the  NBR  Module,  only  the  sun  is  used  as  a  source  for  Sub¬ 
routine  SURRAD.  Fireballs  are  never  used  in  the  NBR  Module  where 
Subroutine  SURRAD  is  called  from  Subroutine  UPWELL.) 


SRCZEN(I)  -  Zenith  angle  of  solar  ray  incoming  to  Point  P.  (radians) 

( continued) 
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Table  5-1.  Input  and  output  variables  for  Subroutine  SURRAQ  (Cont'd). 


(The  following  two  arrays  are  not  used  in  the  UBR  Module;  L= 1 » IF  IRES  1 

SRCZEN(l+l)  -  Zenith  angle  of  Fireball-L  ray  incoming  to  Point  P. 

( radi ans) 

SRC$R(L+1)  -  Slant  range  from  Fireball-L  to  Point  P.  (km) 

TECTOR  Common 

OETALT,  -  Altitude,  north  latitude,  and  east  longitude  of  fictitious 
DETLAT,  detector  at  Point  V.  (km,  radians,  radians) 

DETLON 

UPWELS  Conmon 

NifllAVE(M)  -  Number  of  wavenumbers  at  which  the  upwelling  spectral 
radiance  is  to  be  computed  for  broad-band  loop- index 
Ms  J BAND. 

IDAYV  -  Index  for  diurnal  condition  at  Subpoint  V, 

=  0,  Solar  zenith  angle  >  90  deg. 

=  1,  Solar  zenith  angle  <  90  deg. 

I  KM  -  Index  for  number  of  altitudes  at  which  calculations  are 
made  when  clouds  are  included  (set  in  Subroutine  UPHELD. 

UPUELS2  Common 

J3AN01  -  Same  as  JBAND  in  Subroutine  LiPNELL .  Index  for  list  of 
(broad)  wavelength  bands. 

Data  Statement 

NSPEC5  -  Number  of  species  in  molecular  transmittance  model. 

NTEMP  -  Number  of  temperature  bins  in  molecular  transmittance  model. 


OUTPUT  VARIABLES 
Argument  List 

RAO(I)  -  Radiance  emitted  from  surface  material  at  Point  P  and 
directed  toward  detector  at  Point  V. 

[W/(c<n  sr  cm  1  ] 

( conti nuedl 
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Table  5-1.  Input  and  output  variables  for  Subroutine  SURRAQ  (Cant'd). 


RAD(2)  -  Radiance  of  solar  radiation  reflected  at  Point  P  (with 

incoming  ray  unattenuated)  and  directed  toward  detector  at 
Point  K.  i 
[W/icm^  sr  cm*1] 


For  L=1,IFIRES  (not  used  in  NBR  Module) 

RAD(L+2)  -  Radiance  of  Fireball-L  radiation  reflected  at  Point  P  (with 
incoming  ray  unattenuated)  ana  directed  toward  detector  at 
Point  y.  , 

[W/(cm  sr  an  ] 

UPS(I,M,1),  -  Path  parameters  U  (areal  density)  and  UP  (product  of  J  and 

UPPS(I,N,1)  pressureP)  for  temperature-index-1  and  species-N  along 

incoming  solar  path  to  Point  P  on  Earth’s  surface.  Com¬ 
puted  only  for  LUP  =  1. 

(cm  at  STP,  atn-cm  at  SIP) 

For  L=1 , IFIRES  (not  used  in  NBR  Module) 


UPS(I,N,L+1), 
UPPS ( I ,N ,L+1 ) 


Path  parameters  U  and  UP  along  path  from  Fireball-L  to 
Point  P  on  Earth’s  surface.  Computed  only  for  LUP=1. 
(cm  at  STP,  atm-cm  at  STP) 


UCS(I,N),  -  Similar  to  UP$(I,N,1)  and  UPPS  ( I ,M , 1 )  except  Point  P  is 
UPCS(I,N)  replaced  by  Point  C. 


AIRSOL  Common 


For  LUP  =1 ,NWAVZ ( J  BAdD ) 

TASP(LUP),  -  Aerosol  transmittances  for  incoming  solar  rays  to  Point  P 
TASC(LUP)  on  Earth’s  surface  and  Point  C  at  12 -km  altitude.  (Depend 

only  on  wavelength  and  assumed  single  paths.) 

For  1=1,  IF  I  RES  (not  used  in  NBR  Module) 

TAFP(L)  -  Aerosol  transmittance  for  incoming  ray  from  Fireball-L  to 
Point  P  on  Earth's  surface. 


SOLARP  Common 


For  LL=1,NWAVE  (JBAfID) 

SOLIRR(LL)  -  Solar  spectral  irradiance  at  the  top  of  the  atmosphere  at 
wavenuaber- index  LL. 

[W/(cni  cm"1] 
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The  calculational  steps  performed  in  Subroutine  SURRAD,  as  it  is  employed  in 
the  NBK  Module,  may  be  described  as  follows: 

A.  Prel iminaries  (done  only  for  spectral  index  L=l) 

1.  Call  RINOUT  to  evaluate  geometry  for  solar  source,  surface 
point  (P),  and  fictitious  detector  at  Point  V.  Obtain  at 
Point  P: 

a.  Detector  zenith. 

b.  IDAY. 

c.  Source  zenith  (if  IDAY=1). 

d.  Detector  azimuth  (if  IDAY=1  and  MSM  >2). 

2.1  If  IDAYV=1  and  IDAY=1,  set  source  zenith  into  Tril  and  detec¬ 
tor  azimuth  into  PSI  (if  MSM  >2). 

2.2  If  iDAYVO,  set  IDAY=0. 

3.  Set  detector  zenith  into  THR. 

B.  Call  ESURF 

Obtain  surface  temperature  (TKS),  directional  emissivity  (EPSD), 
and  (if  IDAY=1)  bidirectional  reflectance-distribution  function 
(SFR).  If  sun  and  water  surface  are  present  and  if  SPCULR= 
•TRUE.,  also  get  solar  specular  reflection  point  on  assumed 
smooth  horizontal  water  surface. 

C.  Compute  surface  spectral  radiance  [RAD(l)]  by: 

1.  Call  PLANCK  (only  for  1 =J  =K  =  1 > . 

2.  Evaluate  RAD  ( 1 )  =  EPSD  x  PLANCK  (TKS,  W) . 

0.  Compute  (unattenuated)  surface-reflected  solar  radiance  [RAD {21] 
by: 

1.  Call  SOLRAD  to  get  solar  irradiance  [SOllRK(L)]  at  top  of 
the  atmosphere  (only  for  I-J=K  =  1). 

2.  Evaluate  RAD ( 2 )  =  SR  x  SOLIRR(L)  x  cos  ( T HI ) . 

E.  Get  path  parameters  (species  areal  density  J  (cm  at  STP)  ano  the 
product  UP  (with  P  the  pressure,  atm-cml)  for  ray  SP  from  sun  to 
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Point  P.  Assume  path  parameters  are  independent  of  latitude  and 
longitude  of  P;  therefore,  do  only  for  1=0=K=L-1.  Also  get 
aerosol  transmittance  from  S  to  P,  TASP(t),  only  for  I=J=K=1. 

1.  Call  GEO XY Z  (Point  P,  f5) 

2.  Call  GEOXYZ  (Point  S,  S) 

3.  Call  STEPS  (P ,  5,...} 

4.  Loop  over  path  segments  with  calls  to  PATH,  AEROSOL,  and 
ACCUM. 

5.  Preserve  U(I,N,2)  and  UP(!,N,2)  arrays  as  'JPS(I,N,1)  and 
UPPS(I,N,1)  arrays. 

F.  Get  path  parameters  for  ray  SC  from  sun  to  Point  C.  (This  step 
is  included  only  if  natural  clouds  are  included  in  the  calcula¬ 
tion.  While  clouds  are  not  strictly  an  Earth-surface  feature, 
the  treatment  of  them  is  analogous  to  that  for  Point  P  and  thus 
is  appropr i ately  described  here.)  Assume  path  parameters  are 
independent  of  latitude  and  longitude  of  C;  therefore,  do  only 
for  I  KM  =J  =K  -L  =  1 .  Also  get  aerosol  transmittance  from  S  to  C, 
TASC(L),  only  for  1KM=J=**1. 

1.  Call  GEOXYZ  (Point  C,  £). 

2.  Call  STEPS  (C,  $,...). 

3.  Loop  over  path  segments  with  calls  to  PATH,  AEROSOL,  and 
ACCUM. 

4.  Preserve  0(1, N, 2)  and  UP(I,M,2)  arrays  as  UCS(I,N)  and 
UPCS(M)  arrays. 

5-3  SUBROUTINE  PINOUT 

5-3.1  Purpose 

Subroutine  RINOUT,  given  the  geographic  locations  of  the  source  (sun 
and/or  fireballs),  the  detector,  and  the  position  P  of  the  intersection  of  the 
1 i ne-of- sight  from  the  detector  to  the  Earth's  surface,  computes  the  zenith 
angle  (and.  for  fireballs,  slant  range  (but  not  in  NBR  Module))  of  the  source 
from  P  and  the  direction  of  the  ray  from  P  toward  the  detector  in  terms  of  the 
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zenith  angle  of  the  detector  and  (if  the  surface  is  not  Lambertian  (MAT^l)  or 
water  (MAT-2))  the  absolute  value  of  the  azimuth  angle  of  scatter  with  respect 
to  the  principal  plane  containing  the  incoming  ray. 

See  Table  5-2  for  a  summary  of  the  input  and  output  variables  fcr 
Subroutine  R1N0UT  and  Figure  5-2  for  a  flow  chart. 

5-3.2  Derivations 

5-3.2. 1  Zenith  Angle  of  Sun 

_5 

Since  the  Earth's  radius  subtends  a  maximum  angle  of  about  4.2  x  10 
radians  at  the  sun,  it  is  a  good  approximation  to  assume  that  the  solar  ray  to 
Point  P  is  essentially  parallel  to  the  ray  to  the  subsolar  point.  Thus  the 
great  circle  arc  from  Point  P  to  the  subsolar  point  is  essentially  the  solar 
zenith  angle,  5 ^ ,  at  Point  P.  This  angle  -  •  is  obtained  by  applying  the 
cosine  law  for  sides  to  an  oolique  spherical  triangle,  with  the  result 

cos  a.  =  sin  ep  sin  o$  +  cos  ap  cos  e$  cos  (;s~;p)  (1) 

where  sp  and  j  are  the  north  latitude  and  east  longitude  of  Point  2  and 
and  are  the  corresponding  quantities  for  the  subsolar  point.  This  formula 
is  the  same,  of  course,  as  that  evaluated  in  Subroutine  SO L Z ES  [Volume  14a- 1, 
HS-79],  but  we  do  not  use  that  routine  here  because  it  receives  its  input  for 
Point  P  from  /TIME/,  which  is  inappropriate  m  the  present  context. 

5-3. 2. 2  Zenith  Angle  of  Detector 

The  approximation  made  in  deriving  the  solar  zenith  angle  is  inade¬ 
quate  to  use  for  the  zenith  angle  of  a  low-altitude  detector,  as  shown  in 
Figure  5-3.  Here,  tne  zenith  angle  is 
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Table  5-2.  Input  and  output  variables  for  Subroutine  RINOUT. 


INPUT  VARIABLES 
Argument  List 

MAT  -  Index  for  category  of  surface  material  (see  Table  2-12  for 
Subroutine  ESURF) . 

IFIRE  -  Number  of  fireballs  to  be  considered  as  sources  (always 
zero  in  NBR  Module). 

FIRBAL  Common  (not  used  in  NBR  Module) 

For  L  =  l, IFIRE 

FBALT(L),  -  Altitude,  north  latitude,  east  longitude,  and  radiant 
FBLAT(L),  intensity  of  Fireball-L. 

FBLON(L),  (km,  radians,  radians,  W/sec) 

FBRINT(L) 

POSITN  Common 

POSALT,  -  Altitude,  north  latitude,  and  east  longitude  of  intersection 
POSLAT,  (Point  P)  of  1 ine-of-sight  from  detector  (at  Point  V)  to 
POSLON  Earth's  surface. 

(km,  radians,  radians) 

SOLARP  Common 

SOLLAT,  -  North  latitude  and  east  longitude  of  subsolar  point. 

SOLLQN  (radians) 

TECTQR  Common 

DETALT,  -  Altitude,  north  latitude,  and  east  longitude  of  detector 

OETLAT ,  at  Point  V.  (km,  radians,  radians) 

oetlon 


OUTPUT  VARIABLES 
Argument  Li  St 

1DAY  -  Index  For  diurnal  condition  at  Point  P. 

=  0,  Solar  zenith  angle  >  90  deg. 

=  1,  Solar  zenith  angle  £  90  deg. 

( continued) 
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Table  5-2,  Input  and  output  variables  for  Subroutine  R1N0UT  (Cont'd). 


SOURCE  Conmon 

SRCZEN(l)  -  Zenith  angle  of  solar  ray  incoming  to  Point  P  on  Earth's 
surface,  (radians) 

For  L=l, IFIRE  (not  used  in  NBR  Module) 

SRCZEN (L+l) ,  -  Zer.ith  angle  and  slant  range  of  Fireball-L  ray  incoming 

SRCSR ( L  + 1 )  to  Point  P  on  Earth's  surface,  (radians,  km) 


TECTOR  Common 
DETZEN  - 


DETAZI(l)  - 


Zenith  angle  of  ray  reflected  at  Point  P  on  Earth's  surface 
toward  the  detector  at  Point  V.  (radians) 

Absolute  value  of  azimuth  angle  of  reflected  ray,  measured 
from  principal  plane  determined  by  vertical  plane  through 
incoming  solar  ray.  (radians) 


For  L=l, IFIRE  (not  used  in  NBR  Module) 

DETAZKL+l)  -  Absolute  value  of  azimuth  angle  of  reflected  ray,  measure) 
from  principal  plane  determined  by  vertical  plane  through 
incoming  ray  from  Firebal 1-L ,  (radians) 


where  the  Earth-central  angle  is  obtained  from  a  call  to  Subroutine  CANGLE 
(see  Table  3-3  for  Subroutine  CANGLE).  Thus  we  need  B. 


Rg  =  Earth' s  radius 
hp  =  Altitude  of  Point  P 
hd  =  Altitude  of  Point  V, 


b  =  +  h„ 

e  p 

c  =  Ro  +  hd  . 
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Figure  5-2.  Flow  chart  for  Subroutine  RINOUT.  For  completeness,  diagram  includes  calculation  for 
fireball  as  source,  a  condition  outside  the  NBR  Module. 


becomes 


tan 


1 

7 


( T  —  6  ) 


(u-a) 


(7a) 


or 


y-S  =  2  tan 


=  t 


'-d 


r?b) 


By  subtracting  Equation  (7b)  from  Equation  (5),  we  have  the  needed  B , 

B  =  (*-a-Cd)/2  ,  t8' 

to  use  in  Equation  (2)  for  the  detector’s  zenith  angle  at  Point  P. 

5-3. 2. 3  Azimuth  Angle  of  Reflected  Ray 

We  want  to  compute  the  azimuth  angle  *  shown  in  Figure  5-4.  For 
simplicity  in  the  formulas,  we  drop  the  primes  from  the  subpoints  V'  and  S'. 

Our  derivation  (which  may  not  be  the  simplest)  requires  solving,  in  turn, 
triangles  P-N-S,  Q-N-S,  P-Q-N,  and  P-V-Q.  The  numbers  on  the  various  sides 
and  angles  indicate  the  sequence  of  solution. 

A,  For  later  use,  note  that  NP  and  NS  are  known,  since 

NP  =  9  (9a) 

P 

NS  =  e  .  (9b) 

s 

Def i ne 

PNS  =  U  I  (10a) 

t  1  s  p1 
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Figure  5—4.  Geometry  for  azimuth  angle  of  reflected  ray. 


QNSt  = 

iyy 

( 10b) 

QNPt  = 

iy*dl  . 

( 10c) 
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B.  For  triangle  P-N-S  , 


PNS  = 


PNSt 

if 

PNSt  <n 

2*-PNSt 

if 

PNSt  >_* 

:id 


PS  =  C ANGLE ( 9p ,  ♦p,  8S,  *s) 


(121 


where  CANGLE  is  the  function  routine  described  in  Section  3-6.2  From  the  law 
of  sines, 


sin  QSN  =  sin  PSN  =  sin  NP  sin  PNS/sin  PS 
QSN  =  sin'1  (sin  QSN) . 


(13a) 

(13b) 


To  determine  the  proper  quadrant  for  QSN,  we  consider  the  consequence 
of  PSN  equaling  90°;  i.e.,  by  applying  the  law  of  cosines  for  sides  to  tri- 
angl e  P-S-N ,  we  have 


cos  NP  =  cos  PS  cos  NS  +  sin  PS  sin  NS  cos  QSN 


cos  NPr  =  cos  PS  cos  NS. 


(14a) 

(14b) 


ff  N?  >  NPR,  then  QSN  >  90°;  i.e.,  if  cos  NP  <  cos  NPH .  then  QSN  >  90°.  Thus, 


QSNp  if  cos  NP  >_  cos  NPR 


QSN  = 


i- 


(15) 


QSNp  if  cos  NP  <  cos  NPR 


-1 


where  the  subscript  P  denotes  the  principal  value  of  sin  ,  as  returned  by  the 

computer . 
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C.  For  triangle  Q-N-S, 

(  QNSt  if  QNSt  <  it 

QMS  =  \  (16) 

(  2ir-QNSt  if  QN$t  >_  t  . 

By  applying  the  law  of  cosines  for  angles  to  triangle  Q-M-S,  we  have 

SQN  =  cos  1  (cos  QMS  cos  QSM  +  sin  QMS  sin  QSN  cos  NS)  .  H? ) 

By  applying  the  law  of  sines  to  triangle  Q-N-S,  we  have 

QM  =  sin'1  (sin  QSN  sin  MS/sin  SQN}.  (18) 

To  determine  the  proper  quadrant  for  QN,  we  consider  the  consequence 
of  QN  equaling  90°;  i.e,,  by  applying  the  law  of  cosines  for  angles  to  tri¬ 
angle  Q-N-S ,  we  have 

cos  QSN  =  -cos  SQN  cos  QNS  +  sin  SQM  sin  QMS  cos  QN .  (19a) 

For  QN  =  90° ,  we  have 

cos  QSNR  =  -  cos  SQM  CCS  QNS.  (19b) 

Now,  SQN  therefore,  sin  SQN  >_  0.  For  daylight  conditions  at  the  detec¬ 

tor,  QNS  £  tt/2;  therefore,  sin  QNS  >_Q*  Thus,  the  second  term  in  (19a)  is 
always  positive  for  QN  <  90°.  Thus 

(  QMp  if  cos  QSN  cos  QSNR 

QN  =  ]  (20) 

(  "-QNp  if  cos  QSN  <  cos  QSNr. 
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o. 


For  triangle  P-Q-N , 


|  QNPt  if  Q«Pt  <  * 

QW  =  ’ 

|  2*-QNPt  if  QNPt  1  ’  • 

By  applying  the  law  of  sines,  we  have 

sin  QP  =  sin  QUP  sin  NP/sin  SQN 


(21) 


(22a) 


or 


,,  .2 ,0a/2 

cos  QP  =  ( 1-si n  Qp )  > 

a  quantity  we  will  need  later. 

E.  For  triangle  P-A-Q,  by  applying  the  law  of  sines,  we  have 
t,  »  sin~*  (sin  VQ  sin  VQP/sin  VP) 

Where  VQ  is  evaluated  by  noting,  for  the  arc  V-Q-N,  that 

VQ  =  |  -  (ed  +  QM) 

Sin  VQ  =  COS  (6d  r  QN )  '» 


(22b) 


(23) 


(24a) 

(24b) 


where  VQP  is  evaluated  by  noting  that 

(25a) 

VQP  =  it  -  SQN 

(25b) 

sin  VQP  =  sin  SQN  ; 
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where  VP  is  evaluated  by  noting  that 


VP 


“d  '  CAMGLE (e^j,  4^,  ep,  ♦  p). 


(26) 


Thus, 


ii  =  sin'1  [cos  (ed  +  00  sin  SQN/s’n  a^] .  (27) 

To  detennine  the  proper  quadrant  for  we  consider  the  consequence 
of  v  equaling  90°;  i.e.,  by  applying  the  law  of  cosines  for  sides  to  triangle 
P-V-Q,  we  have 

cos  VQ  =  cos  VP  cos  QP  +  sin  VP  sin  QP  cos  V.  (28a) 


For  *  »  90°, 

cos  VQr  =  cos  VP  cos  QP 
=  COS  ad  COS  QP- 

Thus, 

if  cos  VQ  >_  cos  VQr 

*  ) 

if  cos  VQ  <  cos  VQr. 

5-4  OTHER  ROUTINES  IN  EARTH  SURFACE  RADIANCE  MODEL 
5-4.1  SAI  Routines  (ESURF,  SOLRAO,  GEOXYZ) 


(28b) 

(29c) 


(29) 


Among  tne  routines  shown  in  Figure  5-1  to  be  directly  called  from 
Subroutine  SURRAQ,  those  (besides  RINOUT)  that  have  been  prepared  oy  SAl  are 
ESURF  (discussed  in  Section  2-5  and  its  related  water-surface  routines  in 
Section  3-6),  SOLRAO  (discussed  in  Section  4-3),  and  GEOXYZ. 
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Subroutine  GEOXYZ  converts  the  geographic  coordinates  of  a  point  (P) 
to  Earth-centered  Cartesian  coordinates.  Reference  to  Figure  5-5  aids  one  in 
writing  the  following  equations. 


RP 

=  Rt  + 

PH 

(30) 

RPEQ 

=  RP  x 

cos  PLAT 

(31) 

RPX 

=  RPEQ 

x  cos  PLON 

(32) 

RPY 

=  RPEQ 

x  sin  PLON 

(33) 

RPZ 

=  RP  x 

sin  PLAT. 

(34) 

The  input  and  output  variables  are  summarized  in  Table  5-3. 

5-4.2  Visidyne,  Inc.  Routine  (AEROSOL) 

Subroutine  AEROSOL,  prepared  by  C.H.  Humphrey  et  al .  [Volume  25], 
computes  attenuation  coefficients  for  scattering  and  absorption  (and,  though 
not  used  in  the  NBR  Module,  the  asymmetry  factor  [average  cos  inf  of  the 
scattering  angle))  due  to  atmospheric  aerosols,  given  the  altitude  and  wave¬ 
length.  Table  5-4  summarizes  the  inputs  and  outputs  for  Subroutine  AEROSOL. 

5-4.3  G.E.  Tempo  Routines  lACCUM,  DOT,  FRAC,  PATH,  PLANCK,  SEGMENT,  STEP, 

STEPS,  SUBVEC ,  UNITV,  VLIN,  XMIT) 

Among  the  routines  shown  in  Figure  5-1  to  be  directly  called  from 
Subroutine  SURRAD,  those  that  have  been  prepared  by  G.E.  Tempo  are  Function 
PLANCK,  Subroutine  VLIN,  Subroutine  STEPS  (and  its  auxiliary  routines  SUBVEC, 
VLIN,  DOT,  UNITV,  STEP,  and  FRAC),  Subroutine  PATH  (and  its  auxiliary  routines 
XMIT  and  SEGMENT),  and  Subroutine  ACCUM.  A  brief  description  of  the  purpose 
of  each  of  these  routines  is  included  in  Table  7-3a  which  summarizes  all  the 
routines  in  the  NBR  Module.  For  the  longer  and  more  important  routines  we 
have  summarized  their  inputs  and  output:  Subroutine  PATH  (Table  5-5),  Func¬ 
tion  PLANCK  (Table  5-6),  Suoroutine  SEGMENT  (Table  5-7),  Subroutine  STEP 
(Table  5-8),  and  Subroutine  STEPS  (Table  5-9).  Briefer  statements  -  but  in 
some  instances,  flow  charts  -  pertaining  to  these  routines  have  been  given  by 
Ewing  et  al .  in  Volume  31  (PATH,  p.  62;  PLANCK,  p.  63;  SEGMENT,  p.  66  with 
flow  chart  on  p.  67;  STEP,  p.  68,  with  flow  chart  on  p.  69;  STEPS,  p.  70). 
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NORTH 


Greenwich 


Figure  5—5.  Geometry  for  conversion  of  geographic  coordinates  to  Earth  -centered 
Cartesian  coordinates. 
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Table  5-3.  Input  and  output  variables  for  Subroutine  GE3XYZ. 


INPUT  VARIABLES 

Argument  List 

PH,  - 
PLAT, 

PLON 

Altitude,  north  latitude,  and  east  longitude  of  Point  3. 

(km,  radians,  radians) 

OUTPUT  VARIABLES 

Argument  List 

RPX ,  - 

RPY , 

RPZ 

Earth-centered  Cartesian  coordinates  X,  ¥,  and  Z  of  Point  p. 

( km) 

Table  5-4 

.  Input  and  output  variables  for  Subroutine  AEROSOL. 

INPUT  VARIABLES 

Argument  Li  St 

HCM  -  Altitude  above  sea  level,  (cm) 

LAUDA  -  Wavelength,  (um) 

AEROK  Contmcn 

c 

KV1S  -  Visibility  range  oarameter  (VR)  for  0  <_  4CM  9  x  10" 


cm. 


1, 

VR 

=  50 

km 

2, 

VR 

=  23 

km 

3, 

VR 

=  10 

km 

4, 

VR 

=  5 

km 

5, 

VR 

=  2 

km 

KTYPE 


Terrain  parameter  for  0  £  HCM  <  2  x  10  cm. 

=  1,  Terrain  is  rural 

-  2,  Terrain  is  urban 

=  3,  Terrain  is  maritime. 


I  continued) 
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Table  5-4.  Input  and  output  variables  for  Subroutine  AEROSOL  (Cont'd). 


OUTPUT  VARIABLES 
Argument  List 

XKSCT,  -  Scattering  and  absorption  coefficients,  (cm  M 
XKABS 

GBAR  -  Asymmetry  factor  (average  cosine  of  the  scattering  angle). 


Table  5-5.  Input  and  output  variables  for  Subroutine  PATH. 


INPUT  VARIABLES 


Argument  List 


FIRST 


ISHELL ( 1 ) , 
ISHELL (2 ) 

OS 


XFRACS(l), 
XFRACS (2) 


logical  variable  serving  as  initialization  switch. 

=  .TRUE.,  For  first  call  (i.e.,  corresponding  to  path  from 
RX  to  RY  in  Subroutine  TRNSCO). 

=  .FALSE.,  For  subsequent  calls  (i.e.,  corresponding  to 
path  from  RY  to  R/i  in  Subroutine  TRNSCO). 

INDX(I)  and  IN0X(1+1)  in  calls  from  Subroutines  TRNSCO  and 
SURRAD. 

05(I+1)  in  calls  from  Subroutines  TRNSCO  and  SURRAD. 

Note:  It  is  always  true  that  DS(1)  -  0.0  and  DS(NC+1)  = 
-1.0,  vrfiere  NC  is  the  number  of  path  segments  plus  one. 
Subroutine  ATW1AD  will  not  be  called  from  Subroutine  TP.NSCO 
with  I=NC . 


XFRACS (I)  and  XFRACS ( I +1)  in  calls  from  Subroutine  TRNSCO 
and  SURRAD. 

Notes:  (1)  Do  not  confuse  this  array  XFRACS  (dimensioned 
2)  with  the  array  XFRACS  (dimensioned  100)  in 
Subroutines  STEP,  STEPS,  and  TRNSCO. 


(2)  For  meaning  of  XFRACS (1),  see  Table  6-9  for 
Subroutine  A7MRAD. 


(continued) 


Table  5-5.  Input  and  output  variables  for  Subroutine  PATH  (Cont'd). 


XYZCOM  Conmon 

NS  - 

Number  of  altitude  boundaries  set  in  Subroutine  SHELLS. 

For  J=1,NS ;  N=l,10 

TS(J ) ,  - 
P5(J), 
XNSPEC(  J  ,N ) 

Temperature,  pressure,  and  species-N  density  at  altitude 
boundary  J.  3 

(deg  K,  atm,  1/cm  ) 

OUTPUT  VARIABLES 

XYZCOM  Common 

For  1=1,2  (adequate  for  ambient  atmosphere);  N=l,10 

U ( I  ,N,2 ) ,  -  Cumulative  value  of  path  pai ameters  U  (species-N  areal 

UP(I,N,2)  density)  and  UP  (product  of  U  and  pressure  P)  for  temper¬ 

ature-index  I  and  species-N  at  end  of  line  segment  DS(J  +  1). 
(cm  at  STP,  atm-cm  at  STP) 

Table  5-( 

>.  Input  and  output  variables  for  Function  PLANCK. 

INPUT  VARIABLES 

Argument  List 

T  - 
W 

Temperature.  ( deg  K ) 

Wavenumoer.  (1/cm) 

Data  Statements 

C  - 

H  - 
CHK  - 

Velocity  of  light,  (cm/sec) 

Planck's  constant.  (J  sec) 

C  x  H/K,  where  K.  is  Boltzmann's  constant,  (cm  deg-K) 

OUTPUT  VARIABLES 

Function 

PLANCK  - 

2  _  i 

Spectral  rad’ance.  [W/(cm  **•  cm  )] 
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Table  5-7. 


nput  and  output  variables  for  Subroutine  SEGMENT. 


INPUT  VARIABLES 

Argument  List 

NSPEC  -  Number  of  species  (10)  in  the  molecular  transmittance 

model.  These  species  are  identified  by  comments  in  Table 
7-9  for  Subroutine  SHELLS. 

XI  -  Distance  along  line  segment;  set  as  0.0  in  call  from  sub¬ 
routine  PATH. 


For  N  =  I ,  NS  PEC 


NS1(N),  -  Array  of  species  concentrations,  pressure,  and  temperature 
PI,  at  start  of  line  segment;  set  in  call  from  PATH  as  XNJl(io), 
T1  PSL1,  and  TSL1.  (1/cm  ,  atm,  deg  K) 


X2 


N  S  2  ( N  ) , 
P2, 
T2 


XY  Common 


Length  of  line  segment;  set  as  DS  in  call  from  Subroutine 
PATH,  (cm) 

Array  of  species  concentations,  pressure,  and  temperature 
at  end  of  line  segment;  set  in  call  from  Subroutine  PATH  as 
XNS2110),  PSL2,  and  TSL2 .  (1/cm  ,  atm,  deg  K) 


For  I  =  1,10 

TT(I)  -  Temperature  array  used  for  band-model  parameters,  (deg  K) 


OUTPUT  VARIABLES 
Argument  List 
For  1=1,10;  N=l, 10 

DU(I,N),  -  Incremental  path  integrals  U  (areal  density)  and  UP  (product 
DUP(I,N)  of  U  and  pressure  P)  for  path  segment  DS,  temperature-I , 

and  species-N.  (cm  at  STP,  atm-cm  at  STP) 
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Table  5-8.  Input  and  output  variables  for  Subroutine  STEP. 


INPUT  VARIABLES 


Argument  List 

RX  -  Location  vector  to  one  end  of  transmission  path,  typically 
but  not  necessarily  at  the  detector,  (cm) 


SHAT  -  Unit  vector  along  the  transmission  path  from  RY  to  RX.  (cm) 

DIST  -  Magnitude  of  distance  along  transmission  path  from  RY  to 
R^.  (cm) 

NC  -  Initialization  value.  Normally  set  to  0  and  leads  to  DS(1) 
being  set  to  0.0. 


XYZCOM  Common 


NS  -  Number  of  shell  boundaries  in  atmospheric  transmission 
model . 

OUTPUT  VARIABLES 
Argument  List 

NC  -  Number^of  path  segments  plus  one  on  the  transmission  path 
from  RY  to  RX,  or  equivalently,  the  number  of  end  points. 

For  1  =  1,  NC 

DS ( I +1 )  -  Length  of  line  segment  I  along  transmission  path,  (cm) 

Note:  It  is  always  true  that  DS ( 1 )  =  0.0  and  DS(NC*1)  = 
-1.0.  (There  are  two  more  values  of  OS  than  there  are 
segments. ) 

XFRACS(I)  -  The  weight  associated  with  the  Ith  end  point  appropriate 
for  finding  at  that  point  the  1 inearly-interpolated  value 
of  parameters  -  such  as  temperature  and  pressure  (or  even 
altitude)  -  which  are  specified  at  the  two  shell  boundaries 
adjacent  to  the  Ith  end  point. 


Note;  For  verification  of  this  interpretation,  see  the  usage  of 
XFRAC(l)  and  XFR AC ( 2 )  in  Subroutine  ATMRAD  for  obtaining  altitude  and 
temperature  at  front  and  back  of  cell  DS.  The  same  conclusion  may  be 
drawn  from  the  usage  of  XFRACS(t)  and  XFRACS ( 2 )  in  Subroutine  PATH. 


(continued) 
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Table  5-8.  Input  and  output  variables  for  Subroutine  STEP  (Cont'd). 


It  is  useful  to  consider  a  hypothetical  example  with  HSHELL(I)  =  0.0, 
1.0,  2.0,  3.0  for  1=1, 2, 3, 4  and  45-degree  path  from  altitude  1.9  to  2.9 
km.  Then,  NC=3  and  we  have  the  following  values  for  the  arrays: 


I_ 

DS  (I ) 

XFRACS(l) 

INDX(I) 

1 

0.0 

0.1 

2 

2 

0.1414 

1.0 

3 

3 

1.2728 

0.9 

4 

4 

-1.0 

Mot  defined 

0 

INDX(I)  -  Index  of  shell  boundary  at  or  just  before  the  start  of  the 
line  segment  I.  INDX(NC)  will  be  the  index  of  the  shell 
boundary  just  after  the  last  endpoint. 

Mote:  INDX(NC+1)  =  0. 


Table  5-9.  Input  and  output  variables  for  Subroutine  STEPS. 


INPUT  VARIABLES 

Argument  List 


RX  -  Location  vector  to  one  end  of  transmission  path,  typically 
but  not  necessarily  at  the  detector,  (cm) 

RY  -  Location  vector  to  one  end  of  transmission  path,  typically 
but  not  necessarily  at  the  scattering  or  source  point,  (cm) 

NC  -  Initialization  value.  Normally  set  to  0  and  leads  to  DS  ( 1 ) 
being  set  to  0.0  in  Subroutine  STEP. 


OUTPUT  VARIABLES 

Internal  Use  (for  call  to  Subroutine  STEP) 

SHAT  -  Unit  vector  along  the  transmission  path  from  RY  to  RX.  (cm) 

0IST  -  Magnitude  of  distance  along  transmission  path  from  RY  to 
RX.  (cm) 

( continued) 
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Table  5-9.  Input  and  output  variables  for  Subroutine  STEPS  (Cont'd). 


Argument  List 

The  following  quantities  are  obtained  by  a  call  to  Subroutine  STEP 
(see  Table  5-8  for  Subroutine  STEP):  NC,  DS,  XFRACS,  and  1NDX. 
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SECTION  6 


UPWELLING  NATURAL  RADIATION 


6-1  INTRODUCTION 

6-1.1  Requirement 

The  Upwelling  Natural  Radiation  Model  (23c'  is  required  to  provide 
the  mean  upwelling  spectral  radiance  at  a  viewing  Point  V  at  any  altitude  in 
the  atmosphere,  with  account  of  the  effects  of  solar  radiation  reflected  from 
the  Earth  and  clouds,  emitted  radiation  from  the  Earth,  atmosphere,  and 
clouds,  and  attenuation  by  atmospheric  aerosols. 

6-1.2  Approach 

The  mean  upwelling  spectral  radiance  is  evaluated,  in  principle,  by 
averaging  the  upwelling  spectral  radiance  over  the  solid  angle  defined  by 
the  cone  with  vertex  at  Point  V  and  tangent  to  the  Earth's  surface.  In  prac¬ 
tice,  we  average  the  set  of  spectral  radiances  received  by  a  (fictitious) 
detector  viewing,  from  Point  V,  a  set  of  characteristic  Points  P  on  the 
Earth's  surface  and  within  o^. .  (For  now,  we  iqnore  clouds.)  The  selection  of 
the  Points  P  is  done  by  first  dividing  ;2y  into  a  number  of  regions  (N^  <  10) 
bounded  by  comnon- vertex  cones,  each  region  with  solid  angle  an  =  n^/N^.  For 
each  region  we  determine  an  angle  6,  measured  from  the  nadir,  which  defines  a 
cone  that  bisects  an.  (For  brevity,  we  will  hereafter  let  the  phrase  'nadir 
angle'  mean  an  angle  measured  from  the  nadir,  just  as  'zenith  angle'  means  an 
angle  measured  from  the  zenith.)  For  daytime,  we  assume  symmetry  about  the 
vertical  (or  principal)  plane  passing  through  Point  V  and  the  sun.  The  region 
on  one  side  of  the  principal  plane  is  divided  into  a  number  of  sectors,  each 
with  angle  n/N^  £  6  for  day;  -  1  for  night  since  complete  azimuthal 
symmetry  then  obtains).  The  intersections  between  the  bisecting  cones  and  the 
planes  bisecting  the  sectors  are  a  set  of  x  N^  lines  which  intersect  the 
Earth's  surface  at  a  set  of  points  we  call  Poirts  P.  We  assume  the  upwelling 
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radiance  directed  from  a  Point  P  to  Point  V  is  representative  of  that  from  the 
entire  facet  associated  with  the  Point  P. 

In  the  absence  of  clouds,  we  model  the  upwelling  radiance  directed 
along  a  Path  PV  (i.e.,  from  Point  P  to  Point  V)  by  including  contributions 
from  (I)  air  emission  between  Points  V  and  P,  (2)  surface  emission  at  Point  P, 
and  (3)  solar  radiation  reflected  from  the  surface  at  Point  P.  (We  do  not 
include  air  emission  reflected  at  Point  P.)  Let  us  denote  such  radiance  as 

UPRADfl ,J ,K,Lj ,  with  I,J,K,  and  L  being  indices  for  altitude,  nadir  angle, 

azimuth  angle,  and  wavenumber,  respectively. 

To  obtain  a  mean  value  for  the  upwelling  radiance,  we  first  average 
UPRADfl  ,J ,K,L)  over  azimuth  angles  for  a  constant  nadir  angle  to  get 
UPRADAd  ,J  ,L)  and  then  average  UPRADAd  ,J  ,L)  over  nadir  angles  to  get 
UPRADN(I,L).  Very  recently  this  last  array  has  been  extended  to 
UPRADM (I ,L ,J8AND )  to  provide  for  a  broad-band  spectral  index  J8ANQ. 

The  inclusion  of  natural  clouds  complicates  the  modeling.  Ho  attempt 
is  made  to  include  the  deterministic  cloud  submodel.  The  statistical  cloud 
submodel  is  included  only  for  altitudes  of  Point  V  equal  to  or  greater  than 

the  highest  altitude  (12  km)  of  a  cloud  top  i-  that  submodel.  The  general 

procedure  is  to  first  consider  a  given  altitude  (sow  denotect'.by  index  IKM), 
nadir-J,  and  azimuth-K.,  just  as  with  no  clouds.  With  the  air  emission, 
ARCVA(IKM,J  ,L) ,  along  the  1 ine-of-sight  (LOS)  above  12-km  altitude  serving  as 
a  base  value,  we  obtain  a  distribution  function  for  the  additional  radiance 
corresponding  to  cl oud-free-LOS  (CFLOS)  and  cloudy-LOS  extending  below  12-km 
altitude.  Because  there  are  159  cloud  configurations  in  the  statistical  cloud 
model,  this  distribution  function  has  160  members  for  nighttime  and  161  mem¬ 
bers  for  daytime; 

159  for  cloud- top  emission  and  (if  daytime)  cloud-reflected  solar 
radi ation 

1  for  Earth's  surface  emission  and  air  emission  below  12-km 
altitude  (for  a  1-1  eg  CFLOS) 
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1  for  Earth's  surface  emission,  air  emission  below  12-km  altitude, 
and  (if  daytime)  ground-reflected  solar  radiation  (for  a  2-leg 
CFLOS,  obtaining  for  daytime). 

The  last  two  members  are  the  weighted  contributions  for  CFI  OS  conditions. 
(Owing  to  certain  simplifications  made  in  the  cloud  modeling,  there  are 
actually  only  9  and  not  159  distinct  values  in  the  distribution  for  a  cloudy- 
LOS.)  Having  determined  the  distribution  function  for  a  given  look  direction 
from  Point  V,  we  form  the  integral  distribution  and  compute  selected  percen¬ 
tiles  (XXX  =  10,  25,  50,  90,  100)  of  the  integral  distribution,  RXXX(K,L),  at 
implicit  al ti tude-IKM,  implicit  nadir-J,  and  explicit  azimuth-K.  Values  of 
RXXX(K,L)  are  averaged  over  azimuth  angles  to  give  RXXXM IKM.J ,L) .  Values  of 
ARCVA(IKM,J ,L)  and  RXXXA(IKM,J ,L )  are  averaged  over  nadir  angles  to  give 
ARCVN (1KM,L)  and  RXXXN (IKM.L) ,  respectively. 

Since  the  inclusion  of  the  broad-band  index  JBAND  was  a  late  change 
(March  1980),  we  elected  not  to  modify  the  arrays  ARCVN[IKM,L)  and 
RXXXN ( IKM.L )  to  provide  for  an  explicit  dependence  on  the  index  JBAND  as  we 
did  for  the  array  UPRADN(I  ,L, JBAND ) .  This  limitation  must  be  remembered  and 
removed  if  JBAND  >  1  and  if  clouds  are  included,  unless  one  adopts  the  GRC 
definition  of  UPRADNd ,1, JBAND)  (which  we  give  later). 

It  would  probably  be  more  conceptually  satisfying  if  one  could  per¬ 
form  azimuth-  and  nadir-averages  for  each  of  the  cloud  configurations,  so  that 
one  could  end  up  with  a  distribution  function  at  a  given  altitude  instead  of 
averaged  percentil e-val ues.  Such  a  procedure  was  not  followed. 

The  natural  cloud  model  does  not  include  air  emission  between  cloud 
tops  and  12-km  altitude.  Hence,  such  air  emission  is  not  included  here, 
either. 

6.1-3  Dependence  on  Other  Models 

It  will  be  recognized,  of  course,  that  the  Upwelling  Radiation  Model 
depends  heavily  on  other  models  which  we  have  integrated  into  it.  Obviously 
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required  are  the  models  described  in  earlier  sections  of  this  report  (Earth 
Surface  Characterization  in  Sections  2  and  3,  Solar  Radiation  in  Section  4, 
Earth  Surface  Radiance  in  Section  5)  as  well  as  the  SAI  models  described  else¬ 
where  for  the  Ambient  Atmosphere  (Volume  14a-l)  and  Natural  Clouds  (Volume 
24).  In  addition,  highly  essential  ingredients  are  provided  by  the  G.E.  Tempo 
models  Tor  Atmospheric  Thermal  Emission  (Volumes  28  and  315  and  Molecular 
Transmittance  (Volumes  28  and  31)  and  the  Visidyne,  Inc./AFGL  model  for  Atmo¬ 
spheric  Aerosols  (Volume  25).  Explicit  recognition  of  the  pertinent  routines 
is  given  later. 

6-2  SUBROUTINE  UPWELl 

6-2.1  Formulas 

6-2. 1.1  Geometry 

Here  we  derive  the  formulas  associated  with  the  characteristic  Points 
P. 

In  Figure  6-1,  consider  the  Point  V  at  altitude  h  and  the  ray  VT 
tangent  to  the  Earth's  surface.  Then,  for  the  right  triangle  OTV,  we  have 

s^  +  R2  =  (R+h)2 

or 

s-p  =  (2h  R  +  h2)1/2. 

The  nadir  angle  By  at  Point  V  for  the  tangent  ray  is 
By  -  cos'1  [Sy/lR+h) ]. 

The  solid  angle  between  nadir  angles  Sp  and  a2  is 
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l 


-  2"  J"  sin  S  d6  =  2*  (cos  *  cos  Bp). 


0,  we  have 


12(0,62)  -  2u  (1  -  COS  Bp). 


0  and  Bp  =  B-p  we  have 


2nn;  =  n(0  bt )  =  2*11  -  cos  eT). 


Consitisr  now  the  oblique  triangle  OPV  for  which 


a  +  8  =  x 

where,  at  Point  P,  x  is  the  zenith  angle  of  Point  V.  From  the  law  of  sines, 
we  have 


sin  ( it -x >  _  sin  *  _  sin  a  _  sin  b 
~R+K  ft+h"  '  s  '  R  • 

Consider  now  the  fractiles  (n-l/2)/n.  (with  n=l,  2 . n  )  of  the 

b  b 

normalized  solid  angle  n|.  The  corresponding  angles  and  distances  of  interest 
are: 


n-. 


cos  i„  =  1  - 


B 


n 


*1 

cos 


(cos  8n) 


xn  =  sin'1  [(1  +  jl)  sin 


s_  =  R  sin  a  /sin  s  . 
n  n  n 

These  quantities  of  interest  are  tabulated  in  Table  6-1  for  altitudes  of  1, 
10,  and  100  km.  aj  has  the  values  of  0.982,  0.944,  and  0.825  for  h  =  1,  10, 
and  100  km. 


For  a  Point  C  at  12-km  altitude  on  the  ray  VP,  we  have 
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Table  6-1.  Geometrical  quantities  of  interest  for  Point-V  at 
altitudes  of  1,  10,  and  100  km. 


h 

=  1  km 

n 

8n 

xn 

“n 

Ran 

Sn 

i 

18.03 

18.03 

.00293 

0.33 

1.05 

2 

31.50 

31.50 

.00551 

.61 

1.17 

3 

41.02 

41.03 

.00782 

.87 

1.33 

a 

48.99 

49.00 

.01034 

1.15 

1.52 

5 

56.08 

56.10 

.01338 

1.49 

1.79 

6 

62.63 

62.64 

.01737 

1.93 

2.18 

7 

68.80 

68.83 

.02320 

2.58 

2.77 

8 

74.73 

74.76 

.03298 

3.67 

3.80 

9 

80.50 

80.55 

.05386 

5.99 

6.07 

10 

86.16 

86.30 

.1365 

15.18 

15.21 

h  = 

10  km 

n 

8 

X- 

a 

3a 

s 

n 

n 

n 

n 

n 

i 

17.67 

17.70 

.0286 

3.19 

10.50 

2 

30.86 

30.92 

.0538 

5.98 

11.65 

3 

40.18 

40.26 

.0760 

8.45 

13.10 

4 

47.96 

48.06 

.0998 

11.10 

14.95 

5 

54.89 

55.01 

.1281 

14.24 

17.41 

6 

61.26 

61.43 

.1644 

18.28 

20.85 

7 

67.27 

67.48 

.2156 

23.98 

26.00 

8 

73.02 

73.32 

.2971 

33.03 

34.54 

9 

78.60 

79.06 

.4551 

50.61 

51.62 

10 

84.08 

85.02 

.9414 

104.68 

105.24 

h  = 

100  km 

n 

sn 

Ra 

s 

n 

n 

n 

n 

1 

16.51 

16.78 

.2668 

29.7 

104.4 

2 

28.80 

29.30 

.4957 

55.1 

114.4 

3 

37.46 

38.15 

.6922 

77.0 

126.6 

4 

44.66 

45.55 

.8956 

99.6 

141.7 

5 

51.04 

52.16 

1.1257 

125.2 

161.0 

6 

56.88 

58.29 

1.4052 

156.2 

186.5 

7 

62.36 

64.13 

1.7700 

196.8 

222.1 

8 

67.58 

69.87 

2.2914 

254.8 

275.6 

9 

72.61 

75.76 

3.1488 

350.1 

366.7 

10 

77.50 

82.58 

5.0774 

564.6 

577.5 
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sin  (*-xc) 
~l IFfi - 


sin  8 
R+C12 


or 


sin  xc 


a+h 


R+C 


12 


sin  a 


where,  at  Point  C,  xc  is  the  zenith  angle  of  Point  V. 

The  Earth-central  angle  a  is 
3  c 

ac  =  xc  ’  6- 
6-2. 1.2  Radiance 

Here  we  record  the  general  formulas  used  to  compute  the  radiance 
directed  along  the  paths  from  Point  P  to  Point  V  and  from  Point  C  to  Point  V, 
shown  in  Figures  6-2  and  6-3. 

6-2. 1.2.1  No  Clouds 

For  no  clouds  (or  for  Point-V  altitudes  below  12-km  when  clouds  are 
included),  the  radiance  may  be  written  as 

[Radiance]pv  -  [Air  radiance]pV  +  [Ground  emission  radiancelp 
x  TTPV(L)  +  [Ground-reflected  solar  radiancejp  x  TTSPV 


or 


p 

Figure  6-  2.  Geometry  and  ingredients  to.  radiance  calculation  along  path  PV  without  clouds. 


JPRADvK.U  =  AEPV(L)  +  RA0(1)  x  TTPVU)  +  RAD(2)  x  TTSPV(l) 

UPRAO  (K ,1 ) 
o 


where 


TTPV(l) 


TTSPV(L) 


Total  transmittance  along  ?V 

Product  of  molecular  transmittance  and  aerosol  trans- 
mi  ttance 

Total  transmittance  along  (SP  +  PV > 

(Molecular  transmittance)  x  (aerosol  transmittance) 
TMSPV(L)  x  [TA3P(t)  xTAPV'.U]. 


The  noleo.ia*"  transmittance  Tf#$?V  depends  on  the  oath  parameters  for  the  en¬ 
tire  path  (SP  +  PV): 
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U  (M,N,1)  =  U  PS(M,N,1)  +  U  (M,N  ,2 ) 
UP(M,N , 1)  =  UPPS(M,N,1)  +UP(M,rt,2). 


6-2. 1.2.2  With  Clouds  (h  >  12  km) 

When  clouds  are  included  in  the  calculation  on  a  statistical  basis, 
the  problem  becomes  much  more  complicated,  as  inferred  from  Figure  6-3.  The 
general  procedure  is  to  compute  the  radiance  with  and  without  the  clouds  and 
(essentially)  to  weight  the  two  results  by  the  probabilities  that  the  line-of- 
sight  (LOS)  from  Point  V  intersects  the  clouds  or  does  not  intersect  the 
clouds  (discussed  in  Section  6-2.3). 

If  the  LOS  intersects  the  clouds,  the  radiance  may  be  written  as 

[Radiance]ru  =  [Air  radiance],.^  +  [Cloud  emission  radiance]  x  TTCV(L) 
C  v  C  V  c 

+  [Cloud-reflected  solar  radiancelc  x  TTSCV(L) 
or 

=  AECV(L)  +  EMI SS ( 1  OX )  x  TTCV(L)  +  SOLIRR(L)  x  TRANS(IDX)  x  TTSCV(L), 

where 

TTCV(l)  =  Total  transmittance  along  CV 

=  Product  of  molecular  transmittance  and  aerosol  trans¬ 
mittance 

TTSCV(L)  =  Total  transmittance  along  (SC  +  CV) 

=  (Molecular  transmittance)  x  (Aerosol  transmittance) 

=  TMSCV(L)  x  [TASC(D  x  TACV(L)]. 

The  molecular  transmittance  TMSCV  depends  on  the  path  parameters  for  the 
entire  path  (SC  +  CV): 
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U  SCV  (M,N ,  1 )  =  U  CS(M,N)  +  U  CV(M,N) 

UPS CV ( M  ,N , 1 )  =  UPCS (M  ,N )  +  UPCV(M.M). 

6-2.2  Input  and  Output  Variables 

The  input  and  output  variables  for  Subroutine  UPWELL  are  described  in 
Table  6-2. 

6-2.3  Cal cul ational  Steps 

A.  Preliminaries 

1.  Set  JBAND 1  in  /UPWEIS2/. 

2.  Set  Subpoint  V  in  /TECTOP/. 

3.  Determine  solar  conditions. 

a.  Solar  zenith  angle 

b. l  If  IDAYV  =  0, 

REFA7I  =  0.0,  RS  =  0. 
b.2  If  IDAYV  =  1, 

(1)  Call  GEOREA  for  REFAZI 

(2)  Call  GEOXYZ  for  RS  in  /SORCE/ 

(3)  Zero  arrays  USPV,  UPSPV,  USCV,  UPSCV. 

4.  Set  altitude  of  all  Points  P. 

5.  Initialize  counter  for  cloud  calculations,  IKM  =  0. 

B.  Altitude  Loop  (1  =  1, MALT (JBAND  )=NAITJ  ) 

1.  Advance  altitude  (of  fictitious  detector)  at  Point  V. 

2.  Call  GEOXYZ  for  RV  2  RD  in  /SANDD/ . 

3.  Get  nadir  angle  for  tangent  ray  and  corresponding  solid 
angle. 

4.  If  IKM=1  (implies  ZKM(I, JBAND)  =  12.0),  compute  CFPS ,  the 
CFLOS  for  Path  P5  by  using  calls  to  CFLOSF  in  the  following 
formul  a: 

5 

CFPS  =  ^  CCO VE R  ( l C , KMODF. L )  x  CFL0SF[ ICC ( IC ) ,  SOLZ  ] 

1C  =  1 

with  ICC(IC)  =  1,4,6,9,11  for  IC  =  1,2,3, 4, 5. 
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Table  6-2.  Input  and  output  variables  for  Subroutine  UPWELL. 


INPUT  VARIABLES 


Argument  List 


MSM  -  Index  for  category  of  surface  material  (see  Table  2-12  for 
Subroutine  ESURF) . 

DD  -  Additional  descriptor  for  selected  surface  material  (see 
Table  2-12  for  Subroutine  ESURF). 


WW, 

DW 

SPCULR 


LBINT 


JBAND 


Arrays  of  central  wavenumbers  and  wavenumber- interval j 
widths  corresponding  to  broad-band  index  JBAND.  (cm  ) 

Logical  parameter,  passed  to  Subroutine  SURRAD. 

=  .TRUE.,  Compute  coordinates  of  specular  reflection  point 
on  an  assumed  smooth  horizontal  water  surface,  provided 
MSM=2. 

=  .FALSE.,  Do  not  compute  such  coordinates. 

Word-5  (LHV )  in  GRC  Dataset-BN  (No.  114),  List  of  Band- 
Interval  Datasets  (BI).  Strictly,  LBINT  is  the  pointer 
(i.e.,  contains  the  (Q-array)  address)  for  the  list  header 
of  the  Band-Interval  Datasets-BI  corresponding  to  Dataset- 
BN. 

Index  for  list  of  (broad)  wavelength  bands.  (1  to  5) 


AIRSOL  Common 


For  L=1,NWAVEJ 

TASP(L),  -  Aerosol  transmittance  for  incoming  solar  rays  to  Point  P  on 
TASC(L)  ground  and  Point  C  at  12-km  altitude. 

CLDFREQ  Common 

KMODEL  -  Index  (l  to  11)  characterizing  a  set  of  statistical  aver¬ 
ages  of  cloud-coverage  categories,  cloud  types,  and  number 
of  cloud  layers  for  a  given  geographic  region.  Character¬ 
izes  a  specification  of  CC0VER(5,11)  and  CFRE Q ( 1 7 ,  4,  11) 
in  Block  Data  CDATA  for  KMODEL  =  1,10;  user  must  supply  his 
own  data  for  KM0DEL=11. 

For  ICC =1,5;  KMsKMODEL* 1 , 11 


(continued) 
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Table  6-2.  Input  and  output  variables  for  Subroutine  UPWELL  (Cont'd). 


CCOVER(ICC.KM)  - 

CLDWT  Coimon 
1DX  - 

WT  ( I )  - 

1=1, 10X 

TRANS (I)  - 

1=1. 10X-1 

EMISS(I)  - 
1 =1, IDX-1 

OPT  INI  Common 
RADSW  - 


OPTION  Common 
TRNSOPT  - 


QNCNC  Common 
NCNC  - 


Fractional  occurrence  frequency  of  cloud-coverage  category 
ICC  for  given  KMODEL. 


Index  for  length  of  arrays  returned  from  Subroutine  CLDWT. 
IOX  equals  160  for  a  full  set  of  159  cloud-layer  and  cloud- 
type  configurations  and  is  less  for  a  restricted  set. 

Probability  of  conf iguration-I .  IDX  equaling  160 
corresponds  to  a  cloud- free  1 ine-of-sight. 

Transfer  coefficient  for  configuration-I .  In  NBR  Module, 
geometry  for  transmission  through  clouds  is  not  included; 
only  geometry  for  reflection  of  solar  ray  from  the  highest- 
layer  cloud  in  configuration-I  is  included.  Attenuation  is 
included  (within  the  Natural  Cloud  Model)  to  12-km  al¬ 
titude.  (1/sr) 

Thermal  emission  spectral  radiance  frcm  the  highest-layer 
cloud  in  configuration-I  with  attenuation  computed  (within 
the  Natural  Cloud  Model)  to  12-km  altitude. 

[W/(km  sr  vm)] 


Logical  variable  serving  as  option  switch  for  atmospheric 
volume  emission  calculation;  passed  to  Subroutine  TRNSCO. 
=.TRUE . ,  Tucl  ide  call  (from  Subroutine  TRNSCO)  to  Sub¬ 
routine  ATMRAD. 

=. FALSE.,  Bypass  call  to  Subroutine  ATMRAD  and  perform 
transmittance  calculation  in  Subroutine  TRNSCO  without  air 
emission. 


Logical  variable  affecting  complexity  of  molecular  trans¬ 
mittance  calculation  (see  Tables  7-3  and  6-10  for  Sub¬ 
routines  TRANSB  and  TRANS).  In  Subroutine  UPWFLL,  TRNSOPT 
is  used  only  in  the  argument  list  for  calls  to  Subroutine 
TRANS. 


A  variable,  set  to  NC  after  the  double  call  to  Subroutine 
STEPS  in  Subroutine  TRNSCO,  employed  to  facilitate  being 

(conti nued) 
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Table  6-2.  Input  and  output  variables  for  Subroutine  UPWELL  (Cont'd). 


able  to  use  zero-kilometer  altitude  in  the  NBR  Module.  For 
more  information,  see  comments  preceding  label  number  22  in 
Subroutine  UPWELL. 

SOLARP  Comnon 

SOLLAT,  -  Worth  latitude  and  east  longitude  of  subsolar  point. 

SOLLON  (radians) 

For  L=1 .NWAVEJ 

SOLIRR(L)  -  Solar  spectral  irradiance  at  the  topgof  t^e  Earth's  atmo¬ 
sphere  at  wavenumber- index  L.  [W/(cnr  cm"1)] 

UPWEIS  Comnon 

UPWALT,  -  Surface  altitude,  north  latitude,  and  east  longitude  of  the 

UPWLAT,  sub-V-point  at  which  the  upwelling  radiance  is  computed. 

UPWLON  (km,  radians,  radians) 

For  1=1 ,NALTJ;  M  JBAND=1 .NBANDS 

NALT(M)  -  Number  of  altitudes  ZKM(I.M)  for  (broad)  wavelength-band 
index  J BAND.  Defines  NALTU . 

ZKM( I ,M)  -  Altitudes  of  Point  V  above  UPWALT  at  which  upwelling  radi¬ 

ance  is  computed,  (km) 

NNADIR,  -  Number  of  nadir  and  azimuth  angles  at  Point  V  at  which 

NAZI  upwelling  radiance  is  computed. 

NWAVE(M)  -  Number  of  wavenumbers  at  which  the  upwelling  spectral  radi¬ 
ance  is  to  be  computed  for  (broad)  wavelength- band  index 
JBANO.  Defines  NWAVEJ. 

CLDFLG  -  Index  for  optional  Inclusion  of  natural  clouds 
=0.,  Clouds  are  not  included. 

=1.,  Clouds  are  included. 

OUTPUT  VARIABLES 

FLAGS  Comnon  (differs  from  GRC's) 

ITFLAG  -  Flag  indicating  the  diurnal  condition  at  Point  V',  for  use 
by  Subroutine  CLDWT  in  the  Natural  Cloud  Module. 

( conti nued) 
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Table  b-2.  Input  and  output  variables  for  Subroutine  UPWELL  (Cont'd). 


=0,  Sun  is  below  the  horizon. 
=1,  Sun  is  above  the  horizon. 


POSITN  Conrnon 


POSALT, 

FOSLAT, 

POSLON 


Altitude,  north  latitude,  and  east  longitude  of  Point  P  at 
which  1 ine-of-sight  (from  fictitious  detector  at  Point  V) 
intersects  Earth's  surface,  (km,  radians,  radians) 


C12ALT , 
C12LAT, 
C12L0N 


Altitude,  north  latitude,  and  east  longitude  of  Point  C 
at  which  1 ine-of-sight  (directed  toward  Point  P  from 
fictitious  detector  at  Point  V)  intersects  the  I2-km  alti¬ 
tude  surface,  (km,  radians,  radians) 


SANDD  Comnon 

XS,  -  Earth-centered  Cartesian  coordinates  of  the  sun.  The 
YS,  orientation  of  the  system  is  shown  in  Figure  5-5.  (km) 
ZS 

XD,  -  Earth-centered  Cartesian  coordinates  of  the  fictitious 
YD,  detector  at  Point  V.  (km) 

ZD 

Ul,  -  Direction  cosines  of  Point  P  from  Point  V. 

VL, 

WL 

SORCE  Common 


(Solar  coordinates  are  needed  in  Subroutine  TRANSF  of  the  Natural 
Cloud  Module. ) 


NSORCE  -  Number  of  sources.  Set  to  1  i  n  data  statements. 

HSORCE(l)  -  Altitude  of  sun  (RSUN),  set  in  data  statement,  (km) 

RSORCE(l)  -  Radius  of  source.  True  value  for  sun  is  not  relevant  for 
this  application  in  the  NBR  Module.  Set  to  0.0  in  data 
statement. 


THETAS,  -  Colatitude  and  east  longitude  of  subsolar  point,  (degrees) 
PHIS 


(conti nued) 
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Table  6-2,  Input  and  output  variables  for  Subroutine  UPWELL  (Cont'd). 


TECTOR  Comnon 

DETALT,  -  Altitude,  north  latitude,  and  east  longitude  of  fictitious 
DETLAT,  detector  at  Point  V.  (km,  radians,  radians) 

DETLON 

*************************************** 

o  Note:  UPRAD(K,L)  (in  /UPWELS3/) ,  UPRADAf I ,J ,L  )  (in  /UPWELS3/) ,  and 

UPRADNd  .L.JBAND)  (in  /UPWELS/)  are  cloud-free  results.  For  results  which 
also  include  cloud  effects  for  altitudes  112  km,  use  the  corresponding 
arrays  RXXX(K.L),  RXXXA(I , )  ,L),  and  RXXXN(I,L),  all  in  /UPWELS 1/.  To  these 
arrays  one  must  add,  respectively,  the  base-value  quantities  ARCVA! I ,J ,L ) , 
ARCVAd  ,J,L) ,  and  ARCVN  (I  ,L )  (in  /UPWELS  I/). 

o  In  the  GRC  version,  for  altitudes  112  km  and  if  clouds  are  included,  the 
array  UPRADNd  ,L,UBAND)  is  reset  as 

UPRADNd  ,L,JBANQ)  =  R050N(IKM,U  +  ARCVN (IKM,L  ) , 

which  is  transferred  through  /UPWELS/  to  (the  GRC)  Subroutine  UPWELT. 

Thus,  in  the  GRC  version,  for  altitudes  ZKM  >12  km,  UPRADN  is  not  the  cloud- 
free  result  but  the  50-percentile  of  the  radiance  distribution  function  for 
statistical  clouds  (if  included  in  the  problem). 

*************************************** 
UPWELS  Common 

IDAYV  -  Index  for  diurnal  condition  at  sub-V-point. 

=0,  Solar  zenith  angle  >  90° 

=1,  Solar  zenith  angle  5  90°. 

For  I=1,NALTJ;  L=1,NWAVEJ;  MsJBAND=l ,NBAND$ 

UPRADNd,  L,M)  -  Nadir- averaged  value  of  UPRADAd  ,J  ,L ) .  [W/(cm^  sr  cm  ^  I  ] 

li-i-i  for  number  ?e  altitudes  at  which  calculations  are 

made  v^ien  clouds  are  included  (used  in  Subroutine  SURRAD). 

UPWELS 1  Comnon 

For  1  =  1,NALTJ;  J=1,NNA0IR;  K=1,NAZI;  L=1,NWAVEJ;  MdBAND  =  l  ,NBANDS 

(continued) 
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Table  6-2.  Input  and  output  variables  for  Subroutine  UPWELL  (Cont'd). 


ARCVA(I ,J,L] 


ARCVMd  ,L) 


When  clouds  are  considered  (ZKM(I.M)  >_  12.0),  a  component 
of  the  upwelling  spectral  radiance  received  at  Point  V  (at 
altitude-I),  from  air  emission  above  12-km  altitude,  along 
a  ray  directed  to  Point  P  on  the  Earth's  surface  (at 
nadir-J  and  independent  of  azimuth-K).  [W/(cm  sr  cm  )] 

Nadir-averaged, val ue  of  ARCVA(I,J,L)  for  ZKM(1,M)  1  12.0  km. 
[W/(cm  sr  cm  )3 


For  XXX  =  10,  25,  50,  90,  100 

RXXX(X,L)  -  XXX-percentil e  of  the  integral  distribution  of  the  total 

(including  that  from  statistical  clouds)  natural  upwelling 
spectral  radiance  received  at  Point  V  for  wavenumber-L  (at 
implicit  al titude-IKM  above  surface  material-MSM)  along  a 
ray  directed  to  Point  P  on  Earth's  surface  l at  implicit 
nadir-J  and  explicit  azimuth-X).  [W/(cm  sr  cm  )] 

**Note:  RXXX (X ,L )  does  not  include  ARCVAtl ,J,L) .  Cur¬ 
rently,  UPRA0(K,L)  and  RXXX(K,L)  are  being  written  in 
binary  form  on  logical  unit  No.  8,  for  all  appropriate 
altitudes  and  nadirs. 


RXXXA(I ,J ,L)  -  Azimuth-averaged  value  of  RXXX(K,L).  [W/(an 

RXXXN (I ,L )  -  Nadir-averaged  value  of  RXXXA(I ,J,L) .  [W/(cm2 


sr  cm*1)] 
sr  cm-1)] 


UPWELS2  Common 

JBAND1  -  Same  as  J8AN0,  but  made  available  to  Subroutine  S'JRRAD  to 
facil itate  print. 

UPUELS3  Common 


For  I =1 ,NALTJ ;  J=1,NNADIR;  K=1,NAZI;  L=1,NWAVIJ 

UPRAD(X,L)  -  Natural  upwelling  spectral  radiance  received  at  Point  V  (at 
altituoe-I  above  surface  material -MSM)  along  a  ray  directed 
to  Point  P  on  Earth's  surface  (at  nadir-J  and  azimuth-K). 

(Implicitly,  l  =  l,NALTJ;  J  =  1 , NADIR.  1-  and  J -dependences 
are  not  stored  so  user  must  print  UPRA0(X,L)  immediately 
after  computation  if  he  wants  to  see  them.  Currently, 
UPRAC(X.L)  and  RXXX(X,L)  are  being  written  in  binary  form 
on  logical  unit-jNo.  8,  fir  all  appropriate  altitudes  and 
nadirs.)  [W/(cm  sr  cm  )] 


UPR  ADA  ( I  ,J  ,L )  -  Azimuth- averaged  v.-.’ue  of  'JPRA0(K,L! 


[W/(cn2  sr  on"1  )J 
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C.  Nadir  Angle  Loop  (J=1,NNAD1R) 

1.  Advance  fractile  (FRCTL)  of  tangent  solid  angle  (OMEGAT (I ) ) . 

2.  For  fractile  FRCTL,  get 

a.  Nadir  angle  (BETA). 

b.  Zenith  angle  (CHI)  of  PV. 

c.  Earth-central  angle  (ALPHA). 

d.  If  clouds: 

(1)  Zenith  angle  (CHIC)  of  CV. 

(2)  Earth-central  angle  (ALPHAC). 

3.  Initialize  azimuth  loop  (number  of  azimuths  and  azimuth 
angle).  If  IDAYV  =  0  or  MSM  =  I,  set  NAZI  =  1. 

D.  Azimuth  Angle  Loop  (K=1,NAZI) 

1.  Allow  solar  specular  point  to  be  computed  (at  most)  once 
per  altitude. 

2.  Advance  azimuth  angle. 

3.  Call  AGAGEO  to  set  latitude  and  longitude  of  Point  P  in 
/POSITN / . 

4.  Call  GEOXYZ  to  get  RP  and  thence  direction  cosines  (UL.VL, 
WL)  for  /SANDD/ . 

5.  If  clouds: 

a.  If  IKM=1 ,  Point  C  is  at  Point  V  and  RC  =  RV. 

b.  If  I KM  >1: 

(1)  Call  AGAGEO  to  set  latitude  and  longitude  of 
Point  C  in  /POSITN/. 

(2)  Call  GEOXYZ  to  get  RC  for  later  use  in  call  to 
TRNSCO . 

6.  Initialize  position  (FILPOS)  of  file  LTMTE  (necessary  if 
TRNSOPT  =  .FALSE.). 

E.  Wavenumber  Loop  (L  =  l ,NWAVE (JBAND  l^NWAVEJ  ) 

1.  Advance  central  wavelength  (ZLAM) 

2  Call  SURRAD  to  get: 
a.  At  Point  P: 

(1)  Emitted  radiance,  RAD(l);  for  L^i. 
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(2.1)  Unattenuated  reflected  solar  radiance,  RAD(2); 
for  L>1. 

(2.2)  Path  parameters  [UPS(IT,N,1)  and  UPPS ( IT ,N, 1 )] 
for  path  SP;  for  L=l. 

(3)  Aerosol  transmittance,  TASP(L)  through  /AIRSOL/, 
for  path  SP;  for  L>1. 
b.  At  Point  C  ( if  IKM=1): 

(1)  Path  parameters  [UCS(IT,N)  and  UPCS(IT.N)]  for 
path  SC;  for  1=1. 

(2)  Aerosol  transmittance,  TASC(L)  through  /AIRSOL/, 
for  path  SC;  for  L>1. 

3.  Call  TRNSCO (PV )  to  get  for  path  PV: 

a.  (Derived  from  Word-8,  -7,  and  -5  of  Dataset-31, 
obtained  by  calling  PREV): 

Aerosol  transmittance,  TAPV(L); 

Total  (molecular  and  aerosol )  transmittance,  TTPV(L); 
Air  emission,  AEPV(L). 

b.  From  XYZCOM  Common: 

Path  parameters,  U(IT,N,2)  and  UP(1T,N,2),  preserved 
as  UPV ( IT  ,N )  and  UPPV(IT,N). 

4.  Compute  sum  (temporarily  defined  as  UPRAD(K,l)  and  recog¬ 
nized  as  azimuthally  independent)  of  (l)  the  Earth's  sur¬ 
face  radiance  RAD ( 1 ) ,  multiplied  by  the  total  transmittance 
TTPV(L)  along  PV,  and  (2)  the  atmospheric  emission  AEPV(L) 
along  PV: 

[UPRAD(K,L)]old  =  RADI  1 )  x.  TTPV(L)  +  AEPV(L)  (K  =  l  .NAZI  > , 

which  is  the  upwelling  spectral  radiance,  for  implicit 
nadir  index-J,  at  night  ( I  DA YV  =0 )  and  for  no  clouds. 

5.  If  clouds,  call  TRNSCO(CV)  to  get  for  path  C V: 

a.  (Derived  from  Word-8,  -7,  and  -5  of  Dataset-BI,  ob¬ 
tained  by  calling  PREV): 

Aerosol  transmittance,  TACV(L); 

Total  (molecular  and  aerosol )  transmittance,  TTCV(L); 
Air  emission. 


b.  From  XYZCOM  Coimon: 

Path  parameters,  U  and  UP,  preserved  as  UCV  and  'JPCV. 

6.  Preserve  AECV(L),  which  is  azimuthally  independent,  with  a 
notation  to  indicate  it  is  the  azimuth  average  for  the 
current  values  of  IKM,  J,  and  L: 

ARCYA(1KV,,J,L)  =  AECV(L). 

7.  Set  1TFLAG  in  /FLAGS/  equal  to  IDAYY,  for  use  in  Subroutine 
TRANSF  when  called  by  Subroutine  CLDWT. 

S.  Call  CLOWT  to  obtain  through  /CLDWT/  the  arrays  XT,  EM1SS, 
and  TRASS  of  lengths  I3X=160,  IDX-1=159,  and  IDX-1=159, 
respectively.  IDX  equals  160  for  a  full  set  of  159  cloud 
configurations.  VJT  is  the  array  for  weights  corresponding 
to  the  various  cloud  configurations  or  sets;  at  12-km  alti¬ 
tude  (Point  Cl  along  PV,  EMISS  is  the  array  for  cloud-top 
emission  radiances  and  (if  IDA YV=1 )  TRANS  is  the  array  for 
the  ( irradiance- to- radiance)  transfer  coefficients  for 
cloud-top  reflection  of  solar  radiation.  RT(Y),  for  any  of 
the  10  location-season  averaged  statistical  cloud  models 
(KM0DEL  =  1 , 10) ,  is  the  probability  that  (a)  the  cloud- 
configuration  set  indicated  by  the  index  M  occurs  and  (b) 
the  detector's  LOS  at  zenith  angle  C'rtl  intersects  the  cloud- 
configuration  set.  The  probability  of  the  detector's  LOS 
intersecting  clouds  is  t  RTI'i),  ( M=  1 , 159 ) . 

9.  Continue  with  following  steps: 

a.  To  facilitate  computing  the  radiance  distrioution 
function  resulting  from  the  statistical  treatment  cf 
natural  clouds,  start  forming  a  new  radiance  distribu¬ 
tion  function  (UPRADC)  and  correspondi ng  weights  (RTL). 

b.  To  facilitate  assessing  the  relative  importance  of 
emission  and  reflection  contributions,  preserve  the 
emission  component  of  'JPRADC  in  another  array  (JPRPC1). 

c.  Multiply  the  spectral  radiance  fr»n  the  Natural  Cloud 
Module,  expressed  in  W/(km  sr  urn) ,  by  1.0E-14  \ 

?  ?  ,  i 

(ZLAM)  to  obtain  W/(cm"  sr  cm  ). 
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d. 


Include  transmittance  between  Points  C  and  V,  For 
M=l, 159: 

[JP.^ADC ( M)  Jo1d  =  l.oe-U  x  ( 2LAM) 2  x  EMISS(M)  x  TTCV(L) 
UPRDCl(M)  =  ['JPPvA0C(M)]old 

wtc(m)  =  vrr  (m) 

159 

SUMWTC  =  ^  WTC(M) . 

M-l 

e.  *low  use  fact  that  the  radiance  at  Point  V  due  to  air 
emission  along  PV  can  be  separated  into  two  portions: 
AEPVll )  =  AEPC(L)  x  TTCV(l)  +  AECV(L) 

or 

A£PC(L)  x  TTCV(l)  *  AEPVll)  -  AECV(L). 

Hence  we  need  to  subtract  AECV(l)  from  UPRAO ( K. ,L  j  in 
order  that  'JP3ADCI 150)  will  be  the  air  emission  along 
PC  but  attenuated  along  CV. 

UPH ADC ( 150)  =  'JPRAOlK ,L )  -  AECV(L) 

UPRDC1U60)  =  UPRAOCl  160) . 

f.  We  need  the  mean  probability  of  a  cloud-free  line-of- 
sight  (CFIOS)  along  PC  (at  zenith  angle  CHI  at  Point  P 
corresponding  to  nadir  angle  BETA  at  Point  V).  As 
noted  in  Step  3,  the  probability  of  the  detector's  LOS 
intersecting  clouds  is  S'JMWT  =  rwT(M),  (M=l,159). 

Hence  we  take  (1-SUffWT)  as  the  desired  probability  of 

a  CFIOS,  CFPV: 

CF°V  =  1 -SUMWTC 
WT  v ( 1 60 )  =  CFPV. 

This  WTCIlbO)  obtains  for  night,  the  daytime  value  is 
set  1 ater . 

10.  If  UAYV=1 ,  we  must  include  the  surface-reflected  solar 
radiation: 
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a.  In  Step  3b,  we  preserved  the  path  parameters  along  PV 
as  UPV(IT.N)  and  UPPV(IT,N).  We  now  add  the  param¬ 
eters  for  path  segments  SP  and  PV  and  preserve  as  USPV 
and  UPSPV  arrays. 

U  SPV(IT.N)  =  U  PS(IT ,N)  +  U  PV(IT,N). 

UPSPV  ( IT,N)  =  UPPS(IT.N)  •*  UPPV(IT.N). 

b.  Call  TRANS (..., USPV, UPSPV, ...1  to  get  the  total 
molecular  transmittance  (TMSPV(Ll)  for  the  total  path 
(SP+PV). 

c.  To  get  the  aerosol  transmittance  for  the  total  path 
(SP+PV),  use  TASP(L)  returned  through  /AIRSOL/  from 
call  to  Subroutine  SURRAD  and  TAPV(L)  from  Subroutine 
TRNSCO's  call  to  Subroutine  ATMRAD  for  path  PV. 

d.  Thus  the  total  transmittance  for  the  surface- reflected 
solar  ray  along  the  total  path  (SP+PV)  is 

TTSPV(L)  =  TMSPV(L)  x  fTASP(L)  x  TAPV(L)]. 

e.  The  total  upwelling  r-adiance  along  the  path  PV  (with¬ 
out  clouds)  is 

[UPRAD(K.L)]  =  [UPRA0(K,L)]ol{j  +  TTSPV(L)  x  RAD (2 ) 
where  only  RAD(2)  may  depend  on  azimutn,  which  it  will 
for  non-Lambertian  surface  materials  (MSM>1).  The 
first  term  is  the  sun  of  the  attenuated  ground- surface 
emission  and  air  emission  along  path  PV  (obtained  in 
Step  E.4)  and  the  second  term  is  the  product  of  the 
unattenuated  surface-reflected  solar  radiance  (ob¬ 
tained  from  Step  E. 2. a. (2.1))  and  the  total  trans¬ 
mittance  (obtained  from  Step  E.lO.d). 

11.  If  I DAYV  =  1  and  clouds  are  present,  one  must  include  the 

cloud-reflected  solar  radiation. 

a.  We  must  convert  the  transfer  coefficients  (TRANS,  from 
Step  E.8 )  into  radiances  for  the  cloud-reflected  solar 
radiation.  To  do  so,  we  need  the  solar  spectral 
irradiance  E[W/(cm  cm  >]  (normal  to  the  path  to  the 
sun)  at  the  12-km  altitude  point  along  the  path  VP. 

We  use  the  quantity  S0LIRR1L)  -  E,  previously  obtained 
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from  Subroutine  SURRAD ‘s  call  to  SOLRAD  and  available 
tnrough  /SOLARP/. 

b.  We  include  air  transmittance  [TTSCV(L)]  above  12-km 
altitude  along  the  total  path  (SC+CV).  TTSCV(L)  is 
given  by  the  product  of  the  molecular  transmittance 
[TMSCV (L ) ]  and  the  aerosol  transmittance  [TASC(L)  x 
TACV(L)].  TMSCV(L)  will  be  computed  by  Subroutine 
TRANS,  given  the  oath  parameters  USCV  and  UPSCV.  From 
Subroutine  TRNSCO's  call  to  PATH  (Step  E.5.b),  we  have 
the  path  parameters  U(IT,N,2)  and  UP(IT,N,?)  (which  we 
saved  as  UCV(IT,N)  and  UPCV(IT.N)  for  the  path  CV. 

The  path  parameters  UCS(IT.N)  and  UPCS ( IT ,N 1  were 
obtained  from  the  call  to  Subroutine  SURRAD  [Step 
E.2.b.(i)].  Add  to  the  path  parameters  and  preserve 
as  USCV  and  UPSCV  arrays. 

U  SCV(IT.N)  =  U  CS(IT,N)  +  U  CV(IT,N) 

UPS  CV ( I T , N  )  =  UPCS(IT.N)  +  UPCV(IT.N). 

c.  Call  TRANS ( . . . , USCV, UPSCV , . . . )  to  obtain  the  total 
molecular  transmittance  TMSCV(L)  for  the  total  path 
(SC+CV )  - 

d.  To  get  the  aerosol  transmittance  for  the  total  path 
(SC+CV),  use  TASC(L)  returned  through  /AIRSQL/  from 
call  v.c<  Subroutine  SURRAD  and  TACV(L)  from  Subroutine 
TRNSCO's  call  to  Subroutine  ATMRAD  for  path  CV. 

e.  Thus  the  total  transmittance  for  the  cl oud-refl ected 
solar  ray  along  the  total  path  (SC+CV)  is 
TTSCV(L)  =  TMSCV (L )  x  [TASC(L)  xTACV(L)l. 

f.  A  contribution  to  the  total  upwelling  radiance  along 
the  path  CV  (with  clouds  at  or  below  Point  C)  is 
CUPRADC ( M ) ] new  =  [UPRADC(M)]o1d 

+  SOI.IRR (L  )  x  TRANS (M)  xTTSCV(L) 

(M= 1,159) 

where  only  the  transfer  coefficient  TRANS (M)  depends 
on  azimuth.  The  first  term  is  the  cloud-surface 
emission  attenuated  along  path  CV  (obtained  in  Step 
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E.9.d)  and  the  second  term  is  the  product  of  the  un¬ 
attenuated  cloud-surface-reflected  solar  radiance 
[SOLIRR(L)  x  TRANS (M)]  and  the  total  transmi ttance 
(obtained  from  Step  E.ll.e). 

g.  WTC(160)  needs  to  be  reset  for  daytime  conditions.  We 
multiply  the  probability  of  the  (nighttime)  one- leg 
CFLOS  by  the  probability  of  not  having  the  second 
(daytime)  leg: 

WTC(16G)  =  CFPV  x  (1.0  -  CFPS ) , 

where  CFPV  was  set  in  Step  E.9.f  and  CFPS  was  set  in 
Step  8.4. 

h.  For  daytime,  the  arrays  UPRADC,  UPRDC 1,  and  WTC  must 
be  augmented  by  inclusion  of  members  for  a  two- leg 
CFLOS: 

UPRDC 1(161)  =  UPRADC ( lbO ) 

UPRADC ( 161 )  =  UPRADC ( 160 )  +  RAD ( 2 )  x  TTSPV (2 ) 

WTC ( 161 )  =  CFPS  x  CFPV 

where  UPRADC ( 160 >  was  set  in  Step  E,9.e,  RAD (2 )  in 
Step  E. 2. a. (2.1),  and  TTSPV(L)  in  Step  K.lO.d. 

12.  For  clouds,  day  or  night,  the  distribution-function  arrays 
must  be  processed. 

a.  Augment  each  of  the  three  arrays  (UPRADC,  UPRDC 1,  and 
WTC)  with  a  zero-value  member,  which  allows  Subroutine 
LINEAR  to  interpolate  within  its  given  array  if  the 
weight  of  the  normally  smallest  member  exceeds  the 
smallest  fractile  (now  0.10)  for  which  an  integral- 
distribution  value  is  requested. 

UPRADC(II)  =  UPRDC  1(11)  =  WTC  =  0.0 

161  for  night 

162  for  day. 

b.  Call  SORTLJ  to  sort  the  radiance  array  UPRADC  in  in¬ 
creasing  order  and  carry  along  the  arrays  UPRDC 1  and 
WTC- 
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c.  Sura  the  weights  and  normalize  to  unity  (although,  in 
principle,  the  weights  are  already  so  normalized). 

d.  Interpolate  the  array  UPRADC  (by  calling  LINEAR)  to 
obtain  the  percentile  values  (called  RXXX(K,L))  corres¬ 
ponding  to  XXX  =  10,  25,  50,  and  90  (i.e.,  WTC  =  0.10, 
0.25,  0.50,  and  0.90).  For  XXX  =  100,  set  RXXX(K,L)  = 

U PR ADC (II). 

C'.  Nadir  Angle  Loop  (J=1,NNADIR)  Completion 

After  completing  the  wavenumber  and  azimuth  loops,  compute  aver¬ 
age?-  jver  azimuth  angles  K  at  wavenumbers  L  =  1,NWAVEJ;  nadir 
angle  J;  and  altitude  I  (or  I KM  for  clouds). 

NAZI 

UPRADA(I,J,L)  =  (1/NAZI  )^  UPRAD(K.L) 

K=1 


NAZI 

RXXXA(IKM,J,L)  =  (1/NAZI  )^  RXXX(K.L) 

K=1 

XXX  «  10,  25,  50,  90,  100 

Q'.  Altitude  Loop  (l=l,NALT0)  Completion 

After  completing  the  nadir  loop,  compute  averages  over  nadir 
angles  J  at  wavenumbers  L=1,NWAVE0  and  altitude  I  (or  I KM  for 
clouds): 

NNADIR 

UPRADN ( I  ,L , JBAND )  =  ( 1 /NNADIR )  ^  UPRADA{ 1 , J ,L ) 

J--1 


NNADIR 

ARCVN ( IKM,L )  =  ( 1  /NNADIR )  ^  ARCVAt IKM, J ,L ) 

J  =  1 
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NNADIR 

RXXXN(IKM.L)  =  ( 1 /NNADIR )  ^  RXXXA(IKM,J,L). 

J  =  1 

Since  the  inclusion  of  the  index  JBAND  was  a  ’ate  change,  we 
elected  not  to  modify  the  arrays  ARCVN(IKM.L)  and  RXXXN(IKM,L) 
to  provide  for  an  explicit  dependence  on  the  index  JBAND  as  we 
did  for  the  array  UPRADNd  ,L,JBAND) .  This  limitation  must  be 
remembered  and  removed  if  JBAND  >1  and  if  clouds  are  included, 
unless  one  adopts  the  GRC  definition  of  UPRADNi I ,L, JBAND) ,  i.e., 
UPRADN(I,L,JBAND)  =  R050N(IKM,L)  +  ARCVN(IKM,L) . 

6-3  OTHER  ROUTINES  IN  UPWELLING  NATURAL  RADIATION  MODEL 

Subroutine  UPWELL,  the  principal  routine  in  the  Upwelling  Natural 
Radiation  Model  ,  makes  a  number  of  calls  as  shown  in  Figure  6-4. 

6- 3.1  SAI  Routines 

The  calls  to  the  left  of  the  vertical  line  in  Figure  6-4  are  related 
to  the  Natural  Cloud  Model.  Subroutine  GEOXYZ  has  been  discussed  in  Section 
5-4.1.  Subroutine  XMIT  is  described  in  Table  7-3a.  The  routines  CFLOSF, 

CLDWT,  SORTLJ,  and  LINEAR  are  part  of  the  Natural  Cloud  Model;  listings  of 
them  are  in  Volume  24  and  brief  descriptions  of  them  are  given  here  in  Table 

7- 3a.  Note  that  the  listing  of  SORTLJ  given  here  in  Section  8  differs  in  an 
essential  aspect  from  that  in  Volume  24  and  must  be  used  with  the  NBR  Module 
(the  listing  in  Volume  24  is  satisfactory  for  its  use  there). 

The  routines  AGAGEO,  GEOREA,  GEOTAN  (called  by  GEOREA),  REATAN 
(called  by  AGAGEO),  and  TANGEO  (called  by  AGAGEO)  provide  coordinate  transforma¬ 
tions.  They  art  described  in  Table  7-3a.  Their  input  and  output  variables 
are  given  in  Tables  6-3  through  6-7,  respectively. 
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Figure  6—4.  Routines  called  directly  from  the  principal  routine  (UPWELL)  in  the 

Upwelling  Natural  Radiation  Model.  For  subsequent  calls,  see  Figure  7—1. 


Table  5-3. 


Input  and  output  variables  for  Subroutine  AGAGEQ. 


INPUT  VARIABLES 


Argument  List 

HA1,  -  Altitude,  colatitude,  and  east  longitude  of  Point  1. 
GC1,  (cm,  radians,  radians) 

GL1 

AZ21,  -  Azimuth  angle  and  geocentric  angle  of  Point  2  relative 

GA21  to  Point  1.  (radians) 

HA2  -  Altitude  of  Point  2.  (cm) 

OUTPUT  VARIABLES 

Argument  Li st 

GC2,  -  Colatitude  and  east  longitude  ot  Point  2.  (radians) 
GL2 


Table  6-4.  Input  and  output  variables  fo*'  Subroutine  GEOREA. 


INPUT  VARIABLES 


Argument  Li st 


HA1 , 
GC1, 
GLl 


Altitude,  colatitude,  and  east  longitude  of  Point  1. 
(cm,  radians,  radians) 


HA2,  -  Altitude,  colatitude,  and  east  longitude  of  Point  2. 
GC2,  (cm,  radians,  radians) 

GL2 


OUTPUT  VARIABLES 
Argument  List 

SR21,  -  Slant  range,  elevation,  and  azimuth  of  Point  2  relative 

EL21,  to  Point  1.  (cm,  radians,  radians) 

AZ21 


Table  6-5.  Input  and  output  variables  for  Subroutine  GEOTAN. 


INPUT  VARIABLES 
Argument  List 

HA1,  -  Altitude,  colatitude,  and  east  longitude  of  Point  1. 
GC1,  (cm,  radians,  radians) 

GL1 

HA2,  -  Altitude,  colatitude,  and  east  longitude  of  Point  2. 
GC2,  (cm,  radians,  radians) 

GL2 

OUTPUT  VARIABLES 


Argument  Li  St 

XE21,  -  X,  Y,  and  Z  coordinates  of  Point  2  relative  to  Point  1.  lam) 

YN21 , 

ZV21 


Table  6-6.  Input  and  output  variables  for  Subroutine  REATAN. 


INPUT  VARIABLES 
Argument  List 

SR,  -  Slant  range,  elevation  angle,  and  azimuth  angle  of  Point  P. 
EL,  (cm,  radians,  radians) 

AZ 

OUTPUT  VARIABLES 
Argument  List 

XE,  -  X,  Y,  and  Z  coordinates  of  Point  P.  (cm) 

YN, 

ZV 


lb? 


Table  6-7.  Input  and  output  variables  for  Subroutine  TANGEO. 


INPUT  VARIABLES 
Argument  List 

HA1,  -  Altitude,  colatitude,  and  east  longitude  of  Point  i. 

GC1,  (cm,  radians,  radians) 

GLl 

ZE21,  -  X,  Y,  and  Z  coordinates  of  Point  2  relative  to  Point  1.  (an) 

YN21 , 

ZV21 

OUTPUT  VARIABLES 
Argument  List 

HA2 ,  -  Altitude,  colatitude,  and  east  longitude  of  Point  2. 

GC2,  (cm,  radians,  radians) 

GL2 


6-3.2  G.E.  Tempo  Routines  (TRNSCO,  ATMRAD,  TRANS) 

Three  vc-ry  important  routines  called  either  directly  or  indirectly  by 
Subroutine  UPWELL  are  Subroutines  TRNSCO,  ATMRAD,  and  TRANS.  A  brief  descrip¬ 
tion  of  the  purpose  of  each  of  these  routines  is  included  in  Table  7-3a.  We 
have  sunmarized  their  input  and  output  variables  here:  Subroutine  TRNSCO 
(Table  6-8),  Subroutine  ATMRAD  (Table  6-9),  and  Subroutine  TRANS  (Table  6-10). 
Ewing  et  al .  have  given  briefer  statements  about  two  oi  >e  routines  in  Volune 
31:  TRNSCO  (p.  75)  and  TRANS  ( p . 7 2 ,  with  flow  chart  on  p.  73). 
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Table  6-8.  Input  and  output  variables  for  Subroutine  TRNSCO. 


INPUT  VARIABLES 
Argument  list 
For  1=1,3 


RX(I),  - 

RYin, 

RZ(l) 

LB I NT  - 


Location  vectors  of  Points  X,  Y,  and  Z  which,  respectively, 
are  typically  but  not  necessarily  the  locations  of  the 
detector,  scattering  site,  and  source,  (cm) 

Word-5  (LHV)  in  GRC  Dataset-BN  (No.  114),  List  of  Band- 
Interval  Datasets  (BI).  Strictly,  LB  I NT  is  the  pointer 
(i.e.,  contains  the  (Q-array)  address)  for  the  List  Header 
of  the  Band-Interval  Datasets-BI  corresponding  to  Dataset- 
BN « 


RADSW  -  Logical  variable  serving  as  option  switch  for  atmospheric 
volume  emission  calculation. 

=.TRUE.,  Include  call  (from  Subroutine  TRNSCO)  to  Sub¬ 
routine  ATMRAD. 

=. FALSE.,  Bypass  call  to  Subroutine  ATMRAD  and  perform 
transmittance  calculation  in  Subroutine  TRNSCO 
without  air  emission. 

Dataset-Bl  (Band-Interval  Dataset  No.  115) 

Q(l)  =  BNLO  BI,  -  Low  and  high  wavelengths  for  wavelength-band- index 

Q(2)  =  BNHI  BI  J.  (um) 

Q(3)  =  WLO  81,  -  Low  and, high  wavenumbers  for  wavelength-band- index 

q(4)  =  WHI  BI  J.  ( cm_i ) 

XYZCOM  Common 


LTMTE 


Binary  file  containing  the  band-model  parameters_which  were 
derived  in  Subroutine  TRANSB  from  the  basic  5-cm  1  reso¬ 
lution  data.  Here  in  Subroutine  TRNSCO,  File  LTMTE  is 
rewound  for  use  in  Subroutine  TRANS. 


OPTION  Conmon 


TRNSOPT 


-  Logical  variable  affecting  complexity  of  molecular  trans¬ 
mittance  calculation  (see  Tables  7-8  and  6-10  for  Sub¬ 
routines  TRANSB  and  TRANS).  In  Subroutine  TRNSCO,  TRNSOPT 
is  used  only  in  the  argument  list  for  the  call  to  Sub¬ 
routine  TRANS,  a  call  that  occurs  only  if  RADSW  =  .FALSE., 
which  is  not  the  case  in  the  NBR  Module. 

( conti nued) 
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Table  6-8.  Input  and  output  variables  for  Subroutine  TRWrC0  (Cont'd). 


OUTPUT  VARIABLES 

Description  of  the  output  requires  caveats. 

1.  In  the  (rare)  event  the  path  should  not  intersect  the  shelled-atmo¬ 
sphere,  then  initialized  values  of  Word-5  (if  RADSW  -.TRUE,), 

Word-7,  and  Word-8  of  Dataset-81  are  explicitly  set  here  in  Sub¬ 
routine  TRNSCO. 

2.  In  the  usual  event  that  the  path  does  intersect  the  atmosphere, 
there  are  two  cases  to  consider: 

2.1  RADSW  =  .TRUE.  (Applies  to  N3R  Module) 

Subroutine  ATMRAD  is  called  to  evaluate  Words-5,  -7,  and  -8  of 
Dataset-BI,  but  this  dataset  is  not  called  here  in  TRNSCO  and  thus 
is  not  explicitly  available  in  TRRSCO. 

2.2  RADSW  =  .FALSE.  (Does  not  apply  to  N3R  Module) 

Subroutine  ATMRAD  is  not  called.  Hence,  the  calls  that  ATMRAD  makes 
to  get  the  transmittance  calculations  done  must  be  made  here  in 
TRNSCO.  in  this  case,  Word-7  and  -3  of  Dataset-31  are  explicitly 
avail  able. 

Definitions  of  Word-5,  -7,  and  -3  of  Dataset-31  follow. 

Q ( 5 >  =3KGND  31  -  In-band- i nterval  radiance  (due  to  atmospheric 

emission)  over  the  entire  path  length  (which  should 
have  1-leg  and  not  2-leqs).  [W/(cm  $r  band-interval)] 

Q(7)=TR.ANS  BI  -  Product  of  molecular  and  aerosol  transmittances  over 
the  entire  path  length. 

Q(3)=IDSBX  31  -  Aerosol  transmittance  over  the  entire  path  length. 

Rote:  This  is  a  temporary  use  of  Word-S  (and  not  the  GRC  dictionary 
use  of  W'ord-8).  Here  it  is  used  to  carry  information  to  Sub¬ 
routine  UPWELL. 

QNCNC  Common 

MCNC  -  A  variable  set  to  HZ  and  made  available  to  Subroutine 
UPWELL  tu  facilitate  being  able  to  use  zero-kilaneter 
altitude  in  the  N3R  Module.  For  more  information,  see 
comments  preceding  label  number  22  in  Subroutine  UPWELL. 


Table  6-9.  Input  and  output  variables  for  Subroutine  ATMRAD. 


INPUT  VARIABLES 

Argument  List 

LOGIC  -  Logical  variable. 

=.TRUE.,  On  first  entry  (for  first  path  segment)  from 
Subroutine  TRNSCQ  (and  is  reset  to  .FALSE,  in 
ATMRAD). 

=. FALSE.,  On  subsequent  entries  along  the  same  path. 


I  SHELL  ( 1 ) ,  -  1NDX(I)  and  INDX(i-t-l)  in  call  from  Subroutine  TRNSCO. 

ISHELL (2 ) 

ISHELL ( 3 )  -  Used  in  evaluating  the  logical  variable  TEST.  ISHt LL { 3 ) 

will  typically  be  equal  to  lNDXll+2),  a  positive  quantity 
except  on  the  last  call  to  ATMRAD  when  the  last  path- 
segment  is  being  treated,  at  which  time  ISHELL (3)  will 
become  equal  to  1NDX(NC+1)  which  had  been  set  to  0  in  Sub¬ 
routine  STEP. 


XFRAC(l),  -  XFRACS ( I )  and  XFRACSi I +1 )  in  call  from  Subroutine  TRNSCO. 

XFRAC(2)  To  help  understand  the  values  and  uses  of  XFRACS(i),  (1) 
recall  that  the  total  path  has  NC-1  segments  and  MC  end 
points  of  these  segments  and  (2)  see  Table  5-8  for  Sub¬ 
routine  STEP. 


DS  -  DS { I  +1 )  in  call  from  Subroutine  TRNSCO. 

Note:  It  is  always  true  that  DS ( 1 )  =0  and  D S ( NC  + 1 )  -  -1.0, 
where  NC  is  the  number  of  path  segments  plus  one.  ATMRAD 
will  not  be  called  with  I =NC .  (cm] 


LBINT  -  Word-5  in  GRC's  Dataset-BN  (No.  114).  Strictly,  LBINT  is 
the  pointer  (i.e.,  contains  the  (Q-array)  address)  for  the 
List  Header  of  the  Band-Interval  Datasets-Bl  corresponding 
to  Dataset-BN. 


XYZCOM  Common 

FACT  -  Path  resolution  factor  controlling  the  number  of  altitudes 
and  spacing  used  in  Subroutine  SHELLS.  See  Table  7-9  for 
Subroutine  SHELLS.  Here  in  Subroutine  ATMRAD,  FACT  is  used 
to  set  TOL,  which  is  used  to  test  temperature  differences 
across  cel  1 s. 


!  conti nued) 
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Table  6-9.  Input  and  output  variables  for  Subroutine  ATMRAD  (Cont'd). 


For  J=I,HS 

HSHELL(J),  -  Altitude  and  temperature  at  boundary-J .  (H3HELL(1)=0.0) 

TS (J  )  (an,  deg  K) 

For  1=1,2;  N=l,10 

U(I,N,2),  -  Cumulative  values  of  path  parameters  U  (areal  density)  and 

UP(I,N,2)  UP  (product  of  U  and  pressure  P)  for  temperature- index-1 
and  species-N  at  end  of  line  segment  DS. 

(cm  at  STP,  atm- cm  at  STP) 

NMOLS  -  Number  (10)  of  molecular  species  in  molecular  transmittance 
model . 

LTMTE  -  Binary  tile  containing  the  band-model  parameters^  ich  were 
derived  in  Subroutine  TRANSB  from  the  basic  5-cm  resolu¬ 
tion  data.  Here  in  Subroutine  ATMRAD,  File  LTMTE  is 
rewound  for  use  in  Subroutine  TRANS. 

OPTION  Common 

TRNSOPT  -  Logical  variable  .affecting  complexity  of  molecular  trans¬ 
mittance  calculation  (see  Tables  7-3  and  6-10  for  Sub¬ 
routines  TRANSB  and  TRANS).  In  Subroutine  ATMRAD,  TRANSOPT 
is  used  only  in  the  argument  list  for  the  call  to  Sub¬ 
routine  TRANS. 

Dataset-BI  (Band-Interval  Dataset  No.  115) 

Q ( I )=BNL0  BI,  -  Low  and  high  wavelengths  for  wavel ength-band- index  J. 

Q  (2  )=BNH1  BI  (urn) 

Q(3)=WL0  BI,  -  Low  and  high  wavenumbers  for  wavel ength-band- index  J. 

Q (4  )=WHI  BI  (cm"1) 

OUTPUT  VARIABLES 

Dataset-BI  (Band-Interval  Dataset  No.  115) 

Q(5)=BKGND  BI  -  In-band- interval  radiance  to  back  of  cell-OS. 

[W/(cni  sr  ba:id-interval )] 

Q ( 7 )  =TRANS  BI  -  Product  of  cumulative  molecular  and  aerosol  transmit¬ 
tance  to  back  of  cell-DS.  (dimensionless) 

( conti nued) 
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Table  6-9. 


Input  and  output  variables  for  Subroutine  ATMRAD  (Cont'd). 


Q(8)=IDS8X  81  -  Cunulative  aerosol  transmittance  to  back  of  „ell-D$. 

Mote:  This  is  the  second  of  two  temporary  uses  of  Word-8  (and  not  the 
GRC  dictionary  use  of  Word-8).  Here,  it  is  used  to  carry 
information  to  Subroutine  UPWELL. 


Table  6-10.  Input  and  output  variables  for  Subroutine  TRANS. 


INPUT  VARIABLES 

Argunent  List 

NTEMP  -  Number  of  temperatures  in  the  atmospheric  transmittance 
model  (set  to  10  in  call  from  either  Subroutine  ATM RAD  or 
TRNSCO) . 

M  -  Index  for  mode  of  transmittance  calculation.  Could  be  1, 
2,.. .,15.  Within  the  NBR  Module  (where  TRANS  is  called 
from  ATMRAD,  TRNSCO,  and  UPWELL),  M  is  always  1.  (In  calls 
from  Program  EMISCAT,  M  is  1,  2  and  is  allowed  values  up  to 
15.)  In  Subroutine  TRANS,  M  being  1  limits  use  of  the  U 
and  UP  arrays  to  their  first-half  values.  This  is  consis¬ 
tent  with  the  fact  that  within  the  NBR  Module,  Subroutine 
TRANS  is  always  called  with  M  set  to  1,  U  set  to  U( 1,1,2), 
and  UP  set  to  UP (1 ,1,2).  This  is  also  trite  for  calls  with 
M=1  from  Program  EMISCAT.  but  there,  when  M_^2,  the  calls 
are  with  U  and  UP,  i.e.,  the  entire  arrays. 

For  1=1, NTEMP;  N=1,NSPEC 

U(I,N,1),  -  Path  parameters  U  (species-N  areal  density)  and  UP 

UP(I,N,1)  (product  of  U  and  pressure  P)  for  temperature- index  I  and 

species-N.  (cm  at  STP,  atm-cm  at  STP) 

FK(M)  -  FK(M)  is  used  only  if  M_3.  In  the  NBR  Module,  M  is  always 
1.  (But  for  those  calls  with  M^3  from  Program  EMISCAT, 

FK(M)  is  a  set  of  weights  used  to  partition  the  path 
element. ) 

( continued) 
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Table  6-10. 


Input  and  output  variables  for  Subroutine  TRANS  (Cont'd). 


WDL,  -  Lowest  and  highest  wavenumber  in  the  detector  interval  being 
WOH  used  for  vrfiich  the  transmittance  is  to  be  computed,  (an*1) 

FAST  -  Logical  variable  determining  complexity  of  transmittance 
calculation.  In  calls  to  Subroutine  TRANS  (from  Sub¬ 
routines  ATMRAO,  TRNSCO,  and  UPWELL  within  the  N8R  Module 
and  from  Program  EMISCAT  outside  the  N8R  Module1,  FAST  is 
set  to  TRNSOPT . 

=  .TRU£.,  Transmittance  is  based  on  single-level  groups  and 
statistical  bands. 

*. FALSE.,  Transmittance  is  based  on  mul tiple-level  groups 
and  random  El sasser  bands. 

In  addition,  note  that  for  TRNSOPT  =  .  TR 'X  . ,  Subroutine 
TRANSB  develops  the  band-model  parameters  for  the  user 
inter-,  al  of  interest  and  Subroutine  TRANS  uses  these  band- 
model  parameters  to  compute  the  transmittance  and  optical 
depth  for  the  same  interval.  But  for  TRNS0PT=. FALSE . , 
Subroutine  TRANSB  develops  band-model  parameters  for  an 
interval  with  (probably  but  not  necessarily)  higher  resolu¬ 
tion  than  tne  user  interval.  Thus,  to  obtain  the  trans¬ 
mittance  and  optical  depth  for  the  user  interval  ,  Sub¬ 
routine  TRANS  first  computes  the  optical  depth  ( X S - 1  and 
transmittance  [expi-XS^I]  for  the  higher-resolution  inter¬ 
val  j  and  then  obtainsJthe  transmittance  [TAJ(IS)]  and 
optical  depth  C ABC (IS)]  for  species-IS  in  the  user  interval 
by  using  the  following  expression;  to  perform  the  weighted 
sum  over  those  hi gher- resol ution  intervals  overlapping  tne 
user  interval  . 

TA‘J (IS)  =  £f.  expl-XS.) 

j  J  J 

l  -in  [TAU(lS)j  for  id*4  TAJ(IS)  <  u  9999 

ABU  IS)  = 

(  X/j  otherwi  se. 


These  formulas  are  not  given  in  Volume  2b. 

For  additional  information  regarding  the  consequences  for 
Subroutine  .RAtiS  due  to  the  two  possibilities  for  TRANSGP7 
in  Subroutine  TRANSB.  see  Table  7-9  for  Subroutine  TRANSB. 

( continued) 
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Table  6-10.  Input  and  output  variables  for  Subroutine  TRANS  (Cont'd). 


FILPOS  -  Position  of  file  LTMTE.  Set  to  l.E+04  in  calls  from  Sub¬ 
routine  TRNSCO  and  ATMRaO. 

XY  Common 

For  1=1,10 

TT!I )  -  Temperature  array  in  atmospheric  transmission  modei . 

XYZCOM  Common 

lTMTE  -  Binary  file  containing  the  band-model  parameterswhich  were 
derived  in  Subroutine  fRANSB  from  the  uasic  5-cnT1  resolu¬ 
tion  data.  Equivalenced  (in  Subroutine  TRANS3)  to  TAPOT, 
for  which  definition  see  Table  7-8  for  Subroutine  TRANSB. 


for  each  read  of  File  LTMTE,  the  202  words  are  stored  as: 

WTL,  -  Lower  and  higher  wavenumbers  of  interval.  ( cm 
iVTH 

For  1=1,10;  N=l,10 

SOD(I.N),  -  Mean  absorption  coefficient  and  inverse  of  mean  line-spacing 
DEI(I,N)  parameter  (or  the  effective  line  density)  for  species-!*  at 
temperature- ’ ndex- I  for  the  wavenumber  interval  (WTL.WTH). 
[1/cm  at  STP ,  lines/(cnf  )] 

*  n.  *  *  ★ 

NsPEC  -  MMOLS,  the  number  (10)  of  species  in  the  molecular  trans- 
m  i  ttance  model . 

OUTPUT  VARIABLES 
Argument  List 

For  N  =  1,MSPEC;  M=l,15  but  ‘-'=1  for  MBR  Module 

iAj(N.M)  -  T ransmi ttance  for  species-N.  (dimensionless) 

A3C(M,M)  -  Optical  depth  f<-r  species-M.  (dimensionless) 

TTBl (M i  -  Molecular  transmi ttance  of  all  the  species  for  mode-M. 
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SECTION  7 


NATURAL  BACKGROUND  RADIATION  (NBR 1  MODULE 


7-1  INTRODUCTION 


The  NBR  Module  is  defined  to  be  a  complete  computer  program  which 
integrates  nine  ROSCOE-1R  models  into  a  consistent,  stand-alone  module  - 
similar  to  the  way  it  exists  in  the  ROSCOE-IR  Program  -  for  the  purpose  of 
developing  and  testing  the  capability  to  compute  the  natural  upwelling 
spectral  radiance  as  a  function  of  altitude.  Table  7-1  provides  a  guide  to 
the  nine  modules  so  integrated;  we  also  include  the  Dynamic  Storage  Allocation 
{ DS A )  System  [SP-78]  because  it  plays  such  an  important  role  and  it  is  an 
entity  integrated  into  the  NBR  Module. 


Table  7-1.  Guide  to  modules  integrated  into  the  NBR  Module. 


Title 


Ambient  Atmosphere 
Atmospheric  Aerosols 
Natural  Clouds 

Atmospheric  Thermal  Emission 
Molecular  Transmittance 
Earth  Surface  Characterization 
Earth  Surface  Radiance 
Upwelling  Natural  Radiation 
Solar  Radiation 
DSA  System 


Model 

ROSCOE  Manual 

Number 

Developer 

Vclume  Number 

la 

SA1/LJ 

14a  -1,14c 

lc,  19-  lc 

VI 

25 

id,  19: la 

SAI  /PA 

24 

20  b 

GET 

?8 ,31 

24  d 

GET 

28,31 

23a 

SAI /LJ 

27,  Sect.  2,3 

23b 

SAI  /L J 

27,  Sect.  5 

23c 

SAI /LJ 

27,  Sect.  6 

23e 

SAI  /LJ 

GRC3 

27,  Sect.  4 

aWe  have  used  a  G.E.  Tempo  version. 
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GENERAL  CODING  INFORMATION  FOR  N&R  MODULE 


7-2.1  Routines  in  NBR  Module 

Table  7-2a  lists  all  the  (non-DSA)  routines  used  in  the  NBR  Module. 
Those  routines  from  the  DSA  System  [SP-78]  we  have  used  in  the  NBR  Module  are 
listed  in  Table  7-2b.  In  Table  7-2a,  each  of  the  routines  is  annotated  by  a 
letter,  defined  in  the  footnotes,  which  identifies  either  the  module  or  a 
category  to  which  it  belongs. 

7-2.2  Calling  Structure  of  Routines 

The  essential  relationships  between  all  of  the  routines  in  the  NBR 
Module  are  shown  in  Figure  7-1;  however,  we  have  omitted  all  the  DSA  routines 
except  for  QINITl  which  we  include  as  a  reminder  that  the  DSA  system  is  there. 
Calls  to  the  left  of  the  heavy  vertical  line  are  those  required  for  inclusion 
of  the  statistical  cloud  submodel. 

In  addition  to  the  routine  names  in  Figure  7-1,  we  include  annota¬ 
tions  to  enhance  the  utility  of  the  diagram.  Near  the  top  of  the  figure,  a 
dashed  line  divides  the  initializing  calls  from  those  made  later  while  looping 
over  the  spectral  bands.  The  T  (for  TRUE)  besides  the  SUN-hexagon  means  the 
indicated  call  is  made  if  the  sun  is  present  (above  the  horizon).  Vectors  V, 
I5,  t,  and  §,  refer,  respectively,  to  positions  for  (a)  the  (fictitious)  view¬ 
ing  point  at  which  the  upwelling  radiance  is  being  calculated,  (b)  a  repre¬ 
sentative  point  on  the  Earth's  surface  toward  which  the  (fictitious)  detector 
at  Point  V  is  pointed,  (c)  the  intersection  of  the  detector's  1 ine-of-sight 
with  the  12-km  altitude  surface  (the  highest  altitude  of  cloud  tops),  and  (d) 
the  sun.  Vectors  such  as  PS  denote  paths  joining  the  indicated  points.  The 
indices  1,J,K,M,  and  L  are,  respectively,  those  for  altitudes,  nadir  angles, 
azimuth  angles,  broad-bands  (from  Datasot-BN),  and  band-intervals  within  a 
broad-band  (from  Dataset-BI).  On  the  second  and  third  pages  of  Figure  7-1, 
the  indices  I,J,K,  and  L  head  columns  of  entries  which  are  either  1  or  ^  1. 
Each  row  of  such  entires  is  correlated  with  the  call  to  a  routine  (or  a  set  of 
routines)  on  the  same  line.  Such  entries  denote  the  values  of  the  indices  for 
which  the  cal)  is  made  to  achieve  maximum  economy. 
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Table  7-2a.  Routines  in  the  Natural  Background  Radiation  (NBR)  Module. 


Routi ne 

Comment* 

Routine 

Comment 

Routi ne 

Connie  nt 

ACCUM 

T 

GEO  REA 

X 

SOLVE 

A 

AEROSOL 

P 

GEOTAN 

X 

SOLZEN 

A 

AGAGEO 

X 

GEOXYZ 

X 

SORTLJ 

C 

ATMOS U 

A,C  ,T  ,E 

GLITTR 

E 

SPCMIN 

A 

ATMRAD 

T 

H20SVP 

A 

STEP 

T 

BESSO 

C 

IONOSU 

A 

STEPS 

T 

BK  CDATA 

C 

JULIAN 

A 

SUBVEC 

T,V 

CANGLE 

E 

LINEAR 

C,E 

S'JRPAD 

E 

CFLOSF 

C 

OZONE 

A 

TAIR 

C 

CLDBDR  a 

C 

PATH 

T 

TANGEG 

X 

CLDGEOM3 

c 

PLANCK 

T.E 

TEMPZH 

A 

CLDWT 

c 

RATCOF 

A 

TRANS 

T 

CEOUDO 

c 

REA  TAN 

X 

TRANSB 

T 

DOT 

T,V 

RHOEPS 

C 

TRANSF 

C 

DRVUPW 

u 

RINOUT 

E 

TRNSCO 

T 

EMISSF 

c 

SEGMENT 

T 

UNITV 

T,V 

ERF 

E 

SET  ALT 

U 

UPWELL 

U 

ESURF 

E 

SGEOM 

C 

VL  IN 

T,V 

FITTER 

A 

SHELLS 

T 

WATER 

A 

FRAC 

T 

SOLCYC 

A 

WVOPJ 

A 

FRESNL 

E 

SOLORB 

A 

XMIT° 

T 

GCRCLE 

E 

SOLRAD 

S 

ZTTOUT 

A 

A  Routine  from  Ambient  Atmosphere  Module. 

C  Routine  from  Statistical  Submodel  of  Natural  Cloud  Module. 

E  Routine  from  Earth  Surface  Characterization  and  Radiance  Module. 

P  Routine  from  Atmospheric  Aerosols  Module. 

S  Routine  from  Solar  Radiation  Module. 

T  Routine  from  Atmospheric  Thermal  Emission  and  Molecular  Transmittance 
Modules . 

1)  Routine  from  Upwelling  Natural  Radiation  Module. 

V  Routine  for  relations  between  vectors. 

X  Routine  for  transformation  of  coordinates. 

a  A  dummy  routine  to  simulate  that  from  the  Deterministic  Submodel  of  the 
Natural  Cloud  Module  which,  though  loaded  to  satisfy  externals,  is  not 
otherwise  used. 

b  This  routine  is  a  FORTRAN-! anguage  version,  prepared  by  L.  Ewing,  of  the 
COMPASS-1 anguage  routine  used  in  the  GRC  DSA  System.  Here,  it  is  used 
independent  of  its  role  in  the  DSA  System. 

c  Employs  the  DSA  System. 
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Table  7-2b.  Routines  from  the  DSA  Systen  used  in  the  M3R  Module. 


CREATEp,a 

ME XTP,b 

QCREAT 

QGCBLK 

QZBLOK 

CREATX 

NLOKDS 

QDSRED 

QGD3LK 

REMOVE 

DSPWRDP 

PUTAFT 

QDSRYT 

QGRBAG 

WIP0UTp 

DSTR0YP 

PUTB0TP,c 

OERROR 

QGTZWD 

XMITP 

INDWRDP 

PUT0RDd 

QFIELO 

QIMITLP 

L0CK0SP 

QCEASt 

QFLDST 

QPTZWD 

^Primary  calls. 

aHas  entry  point  CREATLP. 

bHas  entry  points  PREVP  and  PRE VNLP . 

CH as  entry  point  PUTT0Pp. 

^Has  entry  point  PUT0RAp. 


7-2.3  Description  of  Routines:  Function  Performed,  Originator,  and  Loca¬ 
tions  of  Listing  and  Input-Output  Table 

In  Table  7-3a,  for  all  the  (non-DSA)  routines  in  the  H3R  Module  (as 
listed  in  Table  7-2a),  we  provide  a  short  description  of  the  routine's  func¬ 
tion.  We  also  identify  (a)  the  organization  (if  not  SAI )  originating  the 
routine,  (b)  the  number  of  the  volume  in  the  R03C0E  Manual  containing  a  list¬ 
ing  of  the  routine,  and  (c)  the  number  of  the  table  in  Volume  27  when  we  have 
summarized  the  inputs  and  outputs  for  the  routine. 

In  Table  7-3b,  we  provide  a  short  description  of  those  D3A  routines 
which  are  called  directly  from  the  N3R  Module. 
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Figure  7—1.  Relationships  between  the  routines  in  the  Natural  Background  Radiation  Module. 
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FIGURE  7  1.  (CONTINUED) 
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Table  7-3a.  Description  of  routines  in  NBR  Module:  function  performed, 
originator,  and  locations  of  listing  and  input-output  table. 


Routine 

ACCUM 

AEROSOL 

AGAGEO 

ATMOSU 

AT MR AD 

BESSO 

3 K DATA 
COAT  A 

CAMGLE 


Function  performed 

Integrates  (between  X=A  and  X- B)  a  function  F(X)  given  at  two 
points  XI  and  X2,  by  using  linear,  logarithmic,  or  power- law 
interpolation,  corresponding  to  specified  ITYPE  =  1,2,3,  respec¬ 
tively;  uses  linear  interpolation  in  case  the  other  methods  would 
fail.  (GET  routine;  listing  in  Vol .  27.) 

Computes  attenuation  coefficients  for  scattering  and  absorption 
(and,  though  not  used  in  the  NBR  Module,  the  asyimetry  factor 
(average  cosine  of  the  scattering  angle))  due  to  atmospheric 
aerosols,  given  the  altitude  and  wavelength.  (VI  routine;  see 
Vol.  2b  for  original  routine  which  differs  slightly  from  ours  in 
Vol.  27.  Input-output  in  Table  5-4.) 

Provides  the  geographic  coordinates  (colatitude  and  east  longi¬ 
tude)  of  Point  2,  given  the  geographic  coordinates  of  Point  1, 
the  azimuth  and  Earth-central  angle  of  Point  2  with  respect  to 
Point  1,  and  the  height  of  Point  2.  (A  modified  MRC  HARC 
routine;  listing  in  Vol.  27.  Input-output  in  Table  6-3.) 

Computes  the  properties  of  the  undisturbed  atmosphere ,  given  the 
altitude  (ZH),  after  the  associated  subroutines  compute  the  local 
apparent  time  (HI),  solar  flux  (SBAR) ,  and  day-or-night  parameter 
(IDORN).  (Listing  in  Vol.  I4a-1.) 

Computes  the  atmospheric  volume  emission  on  an  optical  path. 

(GET  routine;  listing  in  Vol.  27.  Input-output  in  Table  6-9.) 

Provides  the  zero-orcer  cylindrical  Bessel  function  per  Formulas 
9.4.1  and  9.4.3  in  AS-64  (Listing  in  Vol.  24.) 

Provides  (I)  for  14  cloud  types,  their  (a)  base  altitude,  (b) 
thickness,  !c)  water  droplet  radius,  ( d)  water  droplet  density, 
and  ( e)  optical  scattering  properties  (extinction  and  scattering 
cross-sections  and  mean  cosine  of  scattering  angle!  at  lo  wave¬ 
lengths  in  the  2-  to  5- -m  range,  and  (?)  for  Regions  4  and  11  in 
the  NASA  cloud-data  base,  (a)  tne  statistical-cloud  index.  Id) 
occurrence  frequencies  of  cloud  types,  and  (c)  occurrence  fre¬ 
quencies  of  number  of  cloud  layers.  (Listing  in  Vol.  24.) 

Compotes  the  Earth-central  angle  ( CAMGLE )  between  the  two  central 
rays  to  Points  and  P2,  given  the  north  ’ati tubes  and  east 
longitudes  of  Points  PI  and  P'2.  (Listing  in  *ol .  2?.  Input- 
output  in  Table  a-q.) 


( cent i nurd ! 


Table  7 

CFLOSF 

CLDBDR 

CLDWT 

CLOUDO 

DOT 

DRVUP'W 

EMISSF 


-3a.  Description  of  routines  in  NBR  Module:  function  performed, 
originator,  and  locations  of  listing  and  input-output 
table  (Cont'd). 


Computes  the  probability  of  a  cloud- free  1 ine-of-sight  (CFLOS)  as 
a  function  of  the  cloud  coverage  (expressed  in  tenths)  and  zenith 
angle  of  the  LOS  from  tie  ground.  (Listing  in  Vol.  24.) 

Provides  the  bidirectional  reflectance  ti/sr)  of  a  plane,  semi¬ 
infinite  stratocunulcus  (KCL0UD=4)  cloud  for  a  photon  of  wave¬ 
length  ALAM  incident  at  zenith  angle  THIN  -  ACOS(CTHIN)  and  re¬ 
flected  at  zenith  angle  THOUT  -  ACOS(CTHOUT)  and  azimuth  angle 
PHIOUT  -  ACOSf CPHIOUT ) .  (Listing  in  Vol.  24.)  Known  as  ALBEDC 
in  ROSCOE-IR . 

Computes  (for  e.  given  source  ana  detector  location)  three  arrays 
(TRANS,  EMISS,  and  WT),  each  with  IDX  members  (normally  160). 

The  TRANS  and  EM1SS  arrays  are,  respectively,  (1)  the  distribu¬ 
tion  of  i rradiance-to-radiance  transfer  coefficients  (1/sr)  at 
the  12-km  altitude  transfer  point  for  clouds  and  (2)  the  distri¬ 
bution  of  (attenuated)  spectral  cloud-emission  radiances  at  12-km 
altitude  and  directed  toward  the  detector.  The  WT  array  is  the 
set  of  weights  associated  with  the  set  of  statistical  cloud  con¬ 
figurations,  influenced  by  cloud-coverage  fractions  and  cloud- 
free  1 ine-of-sights  from  the  detector.  (Listing  in  Vol.  24.) 

Reads  (a)  a  fl  ag  (MODE)  indicating  by  a  value  of  u  or  1  whether 
the  deterministic-  or  statistical-cloud  submodel  is  desired,  (b) 
cloud  data  appropriate  to  the  indicated  submodel  and  makes  them 
available  to  the  appropriate  routines.  For  M0DE=1,  the  routine 
reads  an  index  KMOOEL  which  selects  data  from  that  in  the  code  or 
allows  the  user  to  input  his  own  data.  Other  flags  are  read 
which  allow  selected  portions  of  the  provided  data  to  be  over¬ 
ridden.  These  user-provided  data  are  output  through  CLDFRQ  and 
CONFIG  Commons  and  override  data  in  BLOCK  DATA  CDAT4.  (Listing 
i n  Vol .  24. ) 

Computes  the  dot  product  of  two  vectors.  (GET,  GRC  routine; 

1 i sting  in  Vol .  27. ) 

Drives,  and  provides  a  means  for  testing,  the  NBR  Ftodule,  by 
accepting  the  necessary  input  data  for  each  of  the  modules  (see 
Table  7-1)  integrated  into  the  NBR  Module  and  printing  selected 
results.  (Listing  in  Vol.  27.) 

Computes  the  (attenuated)  spectral  radiance  at  12-km  altitude 
for  radiation  emitted  (at  a  specified  zenith  angle)  from,  a  cloud 
top  at  a  specified  altitude.  (Listing  in  Vol.  24.) 


l  rcnti rued : 


Table 

ERF 

ESURF 

FITTER 

FRAC 

FRESNL 

GCRCIE 

GEOREA 

GEOTAN 


-3a.  Description  of  routines  in  NBR  Module:  function  performed, 
originator,  and  locations  of  listing  and  input-output 
table  (Cont'd) . 


Evaluates  the  error  function,  based  on  the  rational-approximation 
Formula  7. 1.2. 6  in  AS-64.  (Listing  in  Vol.  27.) 

Provides  the  bidirectional  reflectance-distribution  function 
(BRDF),  directional  emissivity,  and  temperature  of  the  Earth's 
surface  at  the  intersection  point  of  the  optical  1 ine-of- sight 
with  one  of  the  seven  allowed  categories  of  surface  materials. 

(The  surface  temperature  is  approximated  by  using  the  atmospheric- 
model  temperature.)  (Listing  in  Vol.  27.  Input-output  in  Table 
2-12.) 

Computes,  by  the  method  of  least  squares,  the  coefficients  Z ( J ) 
(J=1,N)  in  a  polynomial  of  degree  N  representing  the  dependent 
variable  Y ( I )  (or,  optionally,  its  natural  logarithm)  specified 
(and  given  equal  weights)  at  NPTS  values  of  the  independent  vari- 
ableX(I).  (Listing  inVul.  14a- 1 . ) 

Computes  the  fraction  of  interval  (A,B)  either  contained  in  in¬ 
terval  (X,Y)  if  (A,B)  _<  (X  ,Y )  or  covered  by  interval  (X,Y)  if 
(A,B)  >  (X, Y ) .  (GET  routine;  listing  in  Vol.  27.) 

Evaluates  the  Fresnel  (specular)  monochromatic  reflectance  of  a 
smooth  water  surface  ( characteri zed  by  a  complex  index  of  refrac¬ 
tion),  given  the  wavelength  (in  the  2-  to  5-ym  range)  and  angle 
of  incidence.  (Listing  in  Vol.  27.  Input-output  in  Table  3-4.) 

Computes,  for  three  Points  PI,  P2  and  P3  on  a  great  circle,  the 
latitude  and  longitude  of  the  intermediate  point  P2,  given  the 
latitudes  and  longitudes  of  the  end  points  PI  and  P3,  the  central 
angle  ALP13  between  the  central  rays  to  PI  and  P3,  and  the  cen¬ 
tral  angle  ALP12  between  the  central  rays  to  PI  and  P2.  (Listing 
in  Vol.  27.  Input-output  in  Table  3-5.) 

Provides  the  slant  range,  elevation  angle,  and  azimuth  angle  of 
Point  2  with  respect  to  Point  1,  given  the  geographic  coordinates 
(altitude,  colatitude,  and  east  longitude)  of  the  two  points.  (A 
modified  MRC  HARC  routine;  listing  in  Vol.  27.  Input-output  in 
Table  6-4. ) 

Provides  the  tangent-plane  coordinates  of  Point  2  with  respect  to 
Point  1,  given  the  geographic  coordinates  (altitude,  colatitude, 
east  longitude)  of  the  two  points,  (a  modified  MRC  HARC  '‘outine 
called  GEOXYZ;  listing  in  Vol.  27.  Input-output  in  Table  6-5.) 


lbS 


t conti nued) 


Tabl  e 

geoxyz 

GLITTR 

H20SVP 

IGNOSU 

JULIAN 

LINEAR 

OZONE 

PATH 


-3a.  Description  of  routines  in  NBR  Module:  function  performed, 
originator,  and  locations  of  listing  and  input-output 
table  (Cont'd). 


Converts  the  geographic  coordinates  (altitude,  north  latitude, 
east  longitude)  of  a  point  to  Earth-centered  Cartesian  coordi¬ 
nates.  (Listing  in  Vol .  27.  Input-output  in  Table  5-3.) 

Provides,  upon  being  called  from  Subroutine  ESURF  when  the  line- 
of-sight  intersects  a  water  surface,  (la)  the  bidirectional  re¬ 
flectance-distribution  function  (BRDF)  and  (lb)  directional 
emissivity  of  the  water  surface  at  the  intersection  point  of  the 
optical  line-of- sight  from  the  detector  and  (2)  the  geographic 
coordinates  (north  latitude  and  east  longitude)  of  the  point  on  a 
smooth  horizontal  surface  for  a  specular  reflection  of  a  ray  from 
the  source  to  the  detector,  if  requested  (by  logical  parameter 
SPCULR=.TRl£ .  in  argjnent  list).  Only  the  directional  emissivity 
is  provided  if  there  is  no  source.  (Listing  in  Vol.  27.  Input- 
output  in  Table  3-2.) 

Computes  the  saturation  vapor  pressure  of  water  vapor  over  a 
plane  surface  of  (1)  water  for  the  temperature  range  from  173.15 
to  373.15  deg  K  (-100  to  +100  deg  Cl  and  (2)  ice  for  the  tempera¬ 
ture  range  from  173.15  to  273.15  deg  K  (-100  to  0  deg  C) . 

(Listing  in  Vol .  14a- 1 . ) 

Provides  the  properties  of  the  ambient  ionosphere  required  by  all 
the  chemistry  modules.  (Listing  in  Vol.  lAa-1.) 

Converts  a  Gregorian  calendar  date  to  Julian  day  number  OAYJ  for 
Subroutine  SOLORil.  (Listing  in  Vol.  1 4  a  - 1 . ) 

Performs  a  linear  interpolation  to  find  FXO  at  a  given  XO,  given 
the  independent  variaole  array  XX(I)  and  the  corresponding  depen¬ 
dent  variable  array  FXXll).  FXO  is  set  to  zero  if  XO  is  not 
within  the  range  of  XX ( I ) .  An  efficient  search  is  used. 

(Li  sting  in  Vol .  24. ) 

Computes  the  latitude  and  season  dependence  of  ozone  for  alti¬ 
tudes  from  0-  to  55-km.  (For  hinder  altitudes,  sec-  Subroutine 
SPCMIN.)  (Listing  in  Vol.  14a-l.) 

Develops  the  cumulative  values  of  the  path  parameters  J(!,h,2) 
(species-N  areal  density)  and  'JP(I,N,2)  iproduct  of  U  and  pres¬ 
sure  P)  for  temperature- index  I  and  species  N  at  end  of  line- 
segment  3SLJ+1),  expressed,  respectively,  in  cm  at  STP  and^atm-cm 
at  STP  (if  Loschmidt's  number  is  expressed  in  molecules-cm  ->t 
STD).  Incremental  values  are  obtained  from  Subroutine  SEGMENT. 
(GET  routine;  listing  in  Vol.  27.  Input-output  in  Table  5-5.) 

(continued) 
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Table  7-3a.  Description  of  routines  in  NBR  Module:  function  performed, 
originator,  and  locations  of  listing  and  input-output 
table  ( Cont' d!  . 


PLANCK  Computes  the  blackbody  spectral  radiance.  (GET  routine;  listing 

in  Vol .  27.  Input-output  in  Table  5-6.) 

RATCOF  Provides  the  rate  coefficients  neeaed  for  the  E-  and  F-region 

ionosphere  model  used  in  RCSCQE-IS.  (Listing  in  Vol.  14a- 1.) 

REATAN  Provides  the  tangent-plane  coordinates  of  a  point  with  respect  to 

some  reference  location,  given  the  slant  range  elevation  angle, 
and  azimuth  angle  of  the  point  with  respect  to  une  same  reference 
location.  (A  modified  MRC  HARC  routine  called  REAXYZ;  listing  in 
Vol.  27.  Input-output  in  Table  6-6.) 

RHOEPS  Computes  the  hemispherical-directional  reflectance  from  the  (hori¬ 

zontal)  surface  of  cloud-type  4  { str 3tocLmujlous)  for  radiation  of 
',-avelength  \  reflected  into  zenith  angle  (Listing  in  Vol.  2'.) 

RINOUT  Computes  -  when  given  the  geographic  location  (altitude,  north 

latitude,  east  longitude)  of  the  sources  (sun  and/or  fireballs), 
the  detector,  and  the  position  ?  of  the  intersection  of  the  lme- 
of-sight  from  the  detector  to  the  Earth's  surface  -  the  zenith 
angles  and  slant  ranges  of  the  sources  from  P  and  the  direction 
of  tne  ray  from  P  toward  tne  detector  in  terns  of  the  zenith 
angle  of  the  detector  and  (if  the  surface  is  not  Lambertian 
( VAT  =  1 )  or  water  (MAT =2))  the  absolute  value  of  the  azimuth 
angle  of  scatter  with  respect  to  the  principal  plane  containing 
the  incoming  ray.  (Listing  in  Vol.  27.  Input-output  in  Table 
5-2.) 

SEGMENT  Computes  the  incremental  values  of  the  patn  parameters  JU(I.N) 

and  GDP ( I , N ) ,  for  temperature- i ndex  !  anc  species  N,  for  the  line- 
segment  OS ,  based  on  a  linear  variation  of  the  properties  in  Os. 
Units  are,  respectively,  cm  at  STP  and  atm-cm  5TP  (if 
Loschmidt's  number  is  e>pressed  in  molecules. cm  at  STP),  Cunul a- 
tivc  values  are  formed  in  Subroutine  PATH.  mlET  routine:  listing 
in  Vol.  27.  Input-output  in  "able  5-7.) 

SETALT  Determines  the  altitudes  at  wnich  Subroutine  uPwELL  computes  the 

upwelling  natural  radiation.  A  set  of  cnaracteri sti :  altitudes 
has  been  previously  selected  for  each  of  the  ID  spectral  bins 
spanning  the  2-  to  5-„m  range.  If  tne  wavelength-band  of 
interest  (ALMIN,  AlMAX)  spans  more  than  one  bin,  a  set  of  alti¬ 
tudes  is  obtained  by  combining  those  fur  each  of  the  spanned 
bins.  (Listing  in  Vol.  27.  Input-output  in  Table  7-7. i 


i  Conti  nueci 


Table  7 

S  G£  >?M 

SHELLS 

SOLCYC 

SOLOR8 

SOL RAO 

SOLVE 

SOL  ZEN 


-3a.  Description  of  routines  in  NBR  Module:  function  performed, 
originator,  and  locations  of  listing  and  input-output 
table  ( Cont‘ d) . 


Computes  the  geometrical  relations  between  a  rource ,  (statis¬ 
tical)  cloud  layer,  and  detector.  (Listing  in  Vol.  24.) 

Prepares  arrays  of  physical  properties  at  spherical-shell  bound¬ 
aries  used  in  calculating  molecular  transmittance  through  the 
ambient  atmosphere.  Properties  at  each  shel 1 -boundary  are  alti¬ 
tude,  temperature,  pressure,  and  number  densities  of  species 
(CH4,  CO,  C02,  H20,  NC,  NO  ,  N02,  N20,  0,,  and  OH).  For  infor¬ 
mation,  the  water  content  of  the  atmosphere  above  each  shell 
boundary  is  also  computed,  expressed  ’n  units  of  precipitable 
centimeters.  (Modified  GET  routine;  listing  in  Vol.  27.  Input- 
output  in  Table  7-9. ) 

Computes  the  solar  flux  (SEAR),  an  input  to  ATMOSU  through  ATMOJP 
Cornnon,  based  on  an  assiwed  sinusoidal  11 -year  {or  4018-day) 
variation,  with  the  maximun  value  of  250  for  S8AS  associated 
with  the  CIRA-65  Model  9)  occurring  on  1  June  1950,  1  June  1969, 

1  June  1980,  etc.  and  with  the  minimum  value  of  o5  for  SEAS  (asso¬ 
ciated  with  the  CIRA-65  Model  1)  occurring  on  1  December  1963,  1 
December  1974,  1  December  1985,  etc.  (Listing  in  Vol.  1 4a- 1  - ) 

Confutes  the  north  latitude  ( SOL L AT )  and  east  longitude  (SOLI. ON) 

Oi  tne  apparent  (actual  motion)  subsolar  point,  given  tne  Julian 
day  number  at  0  hours  UT  on  1  January  of  the  year  of  interest 
(YRFJ),  the  Julian  date  at  which  vernal  equinox  occurs  (VEQJ), 
the  Julian  day  number  at  0  hours  on  the  day  of  interest  (DAYJ ) , 
and  the  universal  time  (JT).  (Listing  in  Vol.  14a-l.) 

Provides  the  solar  spectral  irradiance  at  the  top  of  the  Earth's 
atmosphere,  in  the  spectral  range  from  2-  to  5- urn  (or  5000-  to 
2000-wavenambers) .  The  NASA  data  adopted  by  the  ASTM  have  been 
fitted  by  piecewi se-conti nuous  power-law  expressions.  (Listing 
in  Vol.  27.  Input-output  in  Table  4-2.) 

Solves  a  set  of  N  simultaneous  linear  algebraic  equations  by 
using  the  Gauss-Jordan  method  with  maxirntm  pivot  feature. 

(Li  sting  in  Vol  1 4a- 1 . ) 

Computes  (1)  the  cosine  of  tne  zenith  angle  of  the  sun  at  a  Point 
P  (COSCHI),  given  the  geographic  north  latitude  (PLAT)  and  east 
longitude  t PLOW )  of  the  Point  P  and  tne  north  latitude  (SOlLAT) 
and  Cast  longitude  (SOLLON)  of  the  subsolar  point,  (2)  the  day-or- 
night  parameter  ( I  DORN ) ,  which  is  1  if  COSCHI  >_  0.0  and  0  other¬ 
wise,  and  (3)  the  local  apparent  time  (HL),  from  the  Greenwich 
apparent  time  (GAT)  and  tne  longitude  PLON.  (Listing  in  Vol. 

1 4  a  - 1 . ) 
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SORTLJ 

SPCMIN 

STEP 

STEPS 

SUBVEC 

SURRAD 


-3a.  Description  of  routines  in  NBR  Module:  function  performed, 
originator,  and  locations  of  listing  and  input-output 
table  ( Cont1 d) . 


Sorts  an  array  A  of  length  N  from  low  to  high  (if  LOHI  £0)  or 
from  high  to  low  (if  LOHI  >  0).  Two  additional  arrays  are  simply 
carried  along  in  the  sorting  process.  (Listing  in  Vol.  24  is 
adequate  for  use  with  Clouds  Module  but  listing  in  Vol.  27  must 
be  used  for  NBR  Module.) 

Provides  analytic-fit  profiles  at  all  altitudes  of  the  minor 
species  (N,  NO,  NO^,  0,,  0o(  a  ),  and  H~0!  not  provided  by  Sub¬ 
routine  ATMOSU  but  needed  by  the  chemistry  modules,  by  using 
tabular  data-base  species-densities.  Eor  R0SG0E.-IR,  also  pro¬ 
vides  for  CO,  N?0,  CH.,  H,  OH,  H0?,  N(  D),.N(£P),  and  OC^D) ,  as 
well  as  rev i sed  prof iles  of  0,,  H£0,  N,  N(  s),  and  NO.  (Listing 
in  Vol .  L4a-1 . ) 

Calculates  the  intersections  of  an  optical  path  with  the  bound¬ 
aries  of  the  atmospheric  shells  determined  in  Subroutine  SHELLS. 
Path  elements  less  than  10  meters  in  length  are  assigned  to  the 
neighboring  shell.  The  output  includes  (a)  the  number  of  path 
segments  (plus  one)  on  the  transmission  path,  (b)  the  length  of 
the  path  segment  along  the  transmission  path,  (c)  the  weight 
associated  with  the  Ith  end  point  appropriate  for  finding  at  that 
point  the  linearly-interpolated  value  of  the  parameter,  and  (d) 
the  index  of  the  shell  boundary  at  or  just  before  the  start  of 
the  line  segment-  (GET  routine;  listing  in  Vol.  27.  Input- 
output  in  Table  5-8. ) 

Serves  effectively  as  an  entry  to  Subroutine  STEP,  given  the 
optical  path  defined  by  its  end  point  vectors  RX(1)  and  RY ( I ) . 

(GET  routine;  listing  in  Vol.  27.  Input-output  in  Table  5-9.) 

Returns  the  difference  between  vectors  VX  and  VY,  i.e.,  DVXY 
(1-3)  =  VX ( 1 -3  )  -  VY ( 1 -3 ) .  (GET  routine,  equivalent  to  GRC 
routine  with  same  name  and  argument  list;  listing  in  Vol,  27.) 

Provides  (essentially)  the  upwelling  radiance  directed  toward  the 
detector  at  the  point  where  the  optical  1 ine-of- sight  intersects 
the  Earth's  surface.  This  version  of  SURRAD  provides  two  com¬ 
ponent;  of  the  radiance:  (1)  thermally  emitted  a-  i  (2)  source 
(sun  or  fireball)  reflected.  Reflected  sky  radiance  is  not  in¬ 
cluded.  Strictly,  the  source- reflected  component  is  actually 
provided  in  an  unattenuated  form  together  with  the  Dath  param¬ 
eters  (species  areal  density  U  and  UP,  with  P  the  pressure), 
integrated  along  the  incoming  path  from  the  source,  required  as 
input  to  a  computation  of  the  molecular  absorption  over  a  total 

(conti nued) 
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Table 


TAIR 


TANGE  0 


TEMPZH 


TRANS 


TRAN  SB 


-3a.  Description  of  routines  in  .  Module:  function  performed, 
originator,  and  locations  of  listing  and  input-output 
tab!  e  ( Cont' d)  . 


path.  The  aerosol  transmittance  along  the  incoming  path  from  the 
source  is  also  provided.  The  statistical  cloud  submodel  is  also 
included;  see  Subroutine  UPWELL  for  comments.  Note  that  the 
input  parameters  for  Point  C  in  P0S1TN  Common  and  1KM  in  UPWELS 
Conrnon  facilitate  providing,  as  additional  outputs  for  the  path 
from  the  sun  to  Point  C  at  12-km  altitude,  the  patn  parameters 
UCS  and  UPCS  and  the  aerosol  transmittance  TASC(LUP).  (listing 
in  Vol.  27.  Input-output  in  Table  5-1.) 

Provides,  for  use  within  the  statistical-cloud  submodel,  the 
molecular  Transmittance  for  radiation  of  wavelength  ALAM  from 
altitude  ALT  to  12  km  along  a  path  at  zenith  angle  THETA,  by 
i nterpol ati ng  results  from  using  the  AFGL  L0WTRAN-I1I  code  with 
the  1962  U.S.  Standard  Atmosphere.  (Listing  in  Vol.  24.) 

Provides  the  geographic  coordinates  of  a  Point  2,  given  the  geo¬ 
graphic  coordinates  of  Point  1  and  the  tangent-plane  coordinates 
of  Point  2  with  respect  to  Point  1  (called  Subroutine  XYZGEO  in 
ROSCOE-Radar) .  (A  modified  MRC  HARC  routine  called  XYZGEO ; 
listing  in  Vol.  27.  Input-output  in  Table  6-7.) 

Determines  the  temperature  profile  (tabular,  0(4)120  km)  by  inter¬ 
polating  the  data  base  (U.S.  Standard,  1966)  for  latitude  and 
season,  to  be  used  as  input  to  the  major  atmospheric  species 
model  for  the  low-altitude  range  from  0-  to  120-km  altitude. 

(Li sti ng  in  Vol .  14a-l . ) 

Provides  the  molecular  transmittance  and  optical  depth  for  each 
of  the  ten  species  and  the  total  molecular  transmittance  in  a 
specified  wavenumber  interval,  given  the  parameters  U  (cm  at  STP) 
and  UP  (atm-cm  at  STP)  for  the  total  transmission  path.  (GET 
routine;  listing  in  Vol.  27.  Input-output  in  Table  b-10.) 

Processes  the  5-cm’1  resolution  band-model  parameters  file  so  as 
to  (1)  eliminate  the  data  for  the  unwanted  spectral  regions  and 
(2)  derive  new  parameters  with  modified  resolution  in  accordance 
with  the  user-setting  of  the  logical  variable  TRNSOPT .  The 
method  for  TRNSOPT  set  to  .TRUE.,  for  faster  but  less  accurate 
calculations,  provides  in-band  averaged  band-model  parameters. 

The  method  for  TRANSOPT  set  to  .FALSE.,  for  slower  but  more 
accurate  calculations,  provides  band-model  parameters  at  a  finer 
resolution,  actually  0.5  of  the  narrowest  user  wavenumber  band- 
interval,  but  witnin  the  range  of  5  to  50  cm’1.  The  two  band- 
model  parameters  are  (a)  S(I,IS),  the  mean  absorption  coefficient 

(conti nued) 
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TRANSF 


TRNSCO 


UNITY 


UPWELL 


-3a.  Description  of  routines  in  NBR  Module:  function  performed, 
originator,  and  locations  of  listing  and  input-output 
tabl°  (Cont'd). 


for  species-IS  at  temperature-i ndex-1  for  the  interval  DW,  cm 
at  STP,  and  (b)  DE(I,IS),  the  inverse  of  mean_] ine-spaci ng  param¬ 
eter,  or  the  effective  line  density,  lines/cm  .  (GET  routine; 
listing  in  Yol .  27.  Input-output  in  Table  7-8.) 

Computes  a  quantity  defined  in  the  natural  statistical-cloud 
submodel  as  the  irradiance- to- radiance  transfer  coefficient 
(1/sr)  or  simply  the  transfer  coefficient  at  the  intersection  of 
the  detector  LOS  vector  with  12-km  altitude  (known  as  the  trans¬ 
fer  point).  The  transfer  coefficient  is  actually  the  ratio  of  a 
radiance  and  an  irradiance.  The  radiance  is  that  directed  anti¬ 
parallel  to  the  detector  LOS  vector  and  the  irradiance  is  the 
( unattenuated)  source  irradiance  at  the  transfer  point.  For  a 
source  above  12-km  altitude  and  far  from  the  transfer  point  (as 
for  the  sun),  the  transfer  coefficient  becomes  essentially  the 
bidirectional  reflectance  of  the  cloudtop  times  the  cosine  of  the 
zenith  angle  of  the  incident  ray.  For  a  source  below  or  within 
the  clouds  (conditions  not  allowed  in  NBR  Module),  the  transfer 
coefficient  depends  on  the  details  of  the  diffusion  solution  to 
the  transport  of  radiation  through  the  clouds.  (Listing  in  Vol . 
24.) 

Provides,  for  RADSW=.TRUE.  as  in  the  NBR  Module,  a  call  to  Sub¬ 
routine  ATM RAD  to  evaluate  Words-5,  -/,  and  -8  of  Dataset-BI  ( i n- 
band- ’’nterval  radiance,  product  of  molecular  and  aerosol  trans¬ 
mittance,  and  aerosol  transmittance).  (GET  routine;  listing  in 
Vol.  27.  Input-output  in  Table  6-8.) 

Returns  the  unit  vector  YXHAT(l-3)  along  the  vector  VX ( 1 -3 ) . 

(GET  routine,  equivalent  to  GRC  routine  with  same  name  and  argu¬ 
ment  list;  listing  in  Vol.  27.) 

Computes  -  for  a  Point  V  at  each  of  a  set  of  NALTJ  altitudes 
above  a  given  geographic  position,  specified  in  UPWELS  Cornion 
(UPWALT,  UPWLON,  UPWLAT)  and  characterized  by  material  MS'!  and 
property  DD(MSM)  -  the  natural  upwelling  spectral  radiance 
directed  towards  Point  V  from  Points  P  located  on  the  Earth's 
surface  with  respect  to  Point  V  at  U NA DIR  representative  nadir 
angles  and  NAZI  representative  azimuth  angles.  This  upwelling 
radiance,  UPRAD ( I ,J ,K,L ) ,  includes  contributions  from  (1)  air 
emission  hetween  Points  V  and  P,  (2)  surface  emission  at  Point  P, 

( conti nuod) 
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Table  7-3a. 


Description  of  routines  in  NBR  Module:  function  performed, 
originator,  and  locations  of  listing  and  input-output 
table  (Cont'd) . 


VL1N 

WATER 

WVOPT 

XM  IT 

Z  FT  OUT 


and  (3)  the  solar- re flee  ted  radiation  at  each  of  the  Points  P. 
Values  of  the  radiance  UPRAD( I ,J ,K ,L)  are  averaged  over  azimuth 
angles  to  give  UPRADA( l ,J ,L)  and  over  nadir  angles  to  give 
UPRADN(I  ,L,JBAND) .  For  inclusion  of  natural  (statistical) 
clouds,  distribution  functions  of  the  radiance  are  obtained 
instead  of  the  single  values  in  the  absence  of  clouds.  Selected 
percentiles  (10,  25,  50,  90,  100)  of  the  corresponding  integral 
distributions  are  output. 

Note  that  for  the  GRC  version  of  the  NBR  Module  integrated  into 
R0SC0E-IR,  the  array  l'PRADN{  I.L.JBAND)  (for  altitudes  >  12  km  and 
if  clouds  are  included)  is  reset  as  uPRADN { 1 ,L,JBAND)  =  R050N 
(IKM,L)  +  ARCVN(IKM,L) ,  which  is  transferred  through  UPWELS 
Common  to  (the  GRC)  Subroutine  UPWELT.  Thus,  in  the  GRC  version, 
for  altitudes  ZKM  >,  12 -km,  UPRADN  is  not  the  cloud- free  result 
but  the  50-percentile  of  the  radiance  distribution  function  for 
statistical  clouds  (if  included  in  the  problem).  (Listing  in 
Vol .  27.  Input-output  in  Table  6-2.) 

Returns  the  linear  combination  of  two  vectors,  X ( 1 -3 )  =  A*Y ( 1 -3 ) 

+  B*Z(l-3).  (GET  routine,  corresponds  to  GRC  routine  VECLIN  with 
transposed  arguments;  listing  in  Vol. 27.) 

Computes  the  longitude,  latitude,  and  season  dependence  of  water 
vapor  for  altitudes  from  0-  to  45-km.  (For  higher  altitudes,  see 
Subroutine  SPCMIN.)  (Listing  in  Vol.  14a-l.) 

Allows  the  user  to  bypass  the  normal  treatment  (achieved  by  set¬ 
ting  WVFLAG  =  0.0)  of  water  vapor  in  Subroutine  SPCMIN  for  the 
altitude  range  from  0  to  120  km.  The  user  effects  the  bypass  by 
reading  in  WVFLAG  .GT.  0.0  and  his  own  data  in  one  of  four 
optional  forms  according  to  METHOD  =  1,  2,  3,  4.  (Listing  in 
Vol.  14a-l . ) 

Returns  an  array  Y  copied  from  a  given  array  X  of  length  LX  if  LX 
>  0  and  sets  Y  (of  length  i LX  1 )  to  a  constant  X(l)  if  LX  <0.  (A 
COMPASS-1 anguage  version  of  the  routine  is  used  with  the  GRC  DSA 
system,  though  no  listing  of  it  is  included  in  5P-78.  We  have 
used  a  FORTRAN  version  of  the  routine  prepared  by  L.  Ewing  of 
G.E.  Tempo.  Listing  in  Vol.  27.) 

Converts  a  Gregorian  calendar  date  (expressed  as  20th  century 
year  (1YRS),  month  (MONS),  and  day  1 1  DAYS) )  and  zone  time  (ZT)  at 
east  longitude  PLON  to  the  Gregorian  calendar  date  and  mean  time 
(ul;  at  Greenwich,  (Listing  in  Vol.  14a-l.) 


192 


Table  7 -3b .  Description  of  Dynamic  Storage  Allocation  routines 
called  directly  from  the  NBR  Module. 


Routine 

CREATE 

CREATL 

DSPWRD 

DSTROY 

INDWRD 

LOCKDS 

NEXT 

PREV 

PREVNL 

PUTBOT 

PUTORA 

PUTTOP 

QIN1TL 

WIPOUT 


Function  Performed 


Creates  a  dataset  of  (at  least)  n+1  words  and  returns  the  dataset 
index  (the  pointer  to  the  first  (not  zeroth)  word  of  the  dataset). 

Performs  the  same  as  in  Subroutine  CREATE,  except  that  the 
dataset  lock  value  and  lock  count  are  set  to  1  (locked). 

Returns  the  pointer  to  the  DSP  word  for  the  dataset  specified  by 
its  index. 

Returns  to  the  system  the  space  occupied  by  the  dataset  specified 
by  i  ts  i  ndex . 

Returns  the  index  for  the  dataset  specified  by  the  pointer  to  its 
DSP  word. 

Sets  the  specified  lock  number  of  the  dataset  specified  by  its 
i  ndex . 

Returns  the  link  word  and  index  for  a  dataset  (in  forward  order) 
on  a  list,  given  initially  the  pointer  to  the  list  header  and 
subsequently  the  previously-returned  link  word. 

Returns  the  link  word  and  index  for  a  dataset  (in  backward  order) 
on  a  list,  given  initially  the  pointer  to  the  list  header  and 
subsequently  the  previously-returned  link  word. 

Performs  the  same  as  Subroutine  PREV,  except  that  lock  values  are 
not  set  and  reset. 

Places  the  dataset  specified  by  its  index  as  the  bottom  dataset 
on  a  list  specified  by  its  list-header  pointer. 

Inserts  a  dataset  (specified  by  its  index)  into  a  list  of  data¬ 
sets  (specified  by  its  list-header  pointer)  according  to  the 
ascending  order  of  the  specified  nth  words  (with  real  values)  of 
the  datasets. 

Places  the  dataset  specified  by  its  index  as  the  top  dataset  on  a 
list  specified  by  its  list-header  pointer. 

Initializes  the  routines  in  the  DSA  System. 

Removes  all  the  datasets  from  the  list  specified  by  its  list- 
header  pointer  and,  if  the  parameter  kdstry=l,  also  destroys  the 
datasets. 
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7-2.4 


Routines,  Conricn  Blocks,  and  Common-Block  Variables 


7-2.4. 1  Routines  and  Common  Blocks 

In  Table  7-4  we  provide  a  matrix  which  shows  the  appearance  of  common 
blocks  in  the  routines  in  the  NBR  Module. 

7-2. 4. 2  Definitions  of  Common-Block  Variables 

In  this  section  we  either  define  the  variables  in  a  common  block  or 
give  a  reference  where  the  definitions  can  be  found.  We  also  comment  on  the 
use  of  the  conrion  block  and/or  of  its  variables. 

Blank  COMMON 

Blank  COM4  ON  is  used  only  for  the  DSA  System.  For  definitions  of 
variables,  see  SP-78. 

Common  /AEROK/  KVIS,  KPTYPE 

The  variables  KVIS  and  KPTYPE  are  read  in  Program  DRV  OP1,,1  and  trans¬ 
ferred  throuqh  /AEROK/  to  Subroutine  AEROSOL. 

5 

KVIS  -  Visibility  range  parameter  ( V R )  for  0  INCH  1  9  x  10  cm 
=1,  VR  =  50  km 

=2,  VR  =  23  km 

-3,  VR  -  10  km 

=4,  VR  =  5  km 

=5,  VR  =  2  km 

s 

KPTYPE  -  Terrain  parameter  for  0  <  HCM  2  x  10  cm 
-1,  Terrain  is  rural 
=2,  Terrain  is  urban 
=3,  Terrain  is  maritime 

Common  /AIRSQL /  TASP(lO),  TASC(IO),  TAFP(lU) 

The  arrays  TASP  and  TASC  are  set  in  Subroutine  SURRAD  and  transferred 
through  /AIR SOL /  to  Subroutine  UPWELL.  (The  array  TAFP  was  never  intended  for 


Table  7-4.  Matrix  of  ruut.nes  and  common  blocks 


use  with  the  NBR  Module  but  was  provided  should  Subroutine  SURRAD  be  used  as  a 
utility  routine;  this  use  has  not  evolved  in  ROSCOt-IR.) 

For  LUP=1,NWAVE(JBAND) 

TASP(LUP),  -  Aerosol  transmittance  for  incoming  solar  rays  to  Points  P 
TASC(LUP)  on  Earth's  surface  and  Point  C  at  12 -km  altitude  on  the 

VP-path.  (Dimensionless;  depends  only  on  wavelength  and 
assumed  single  paths.) 

For  L=1,IFIRE$  (not  in  NBR  Module) 

TAFP(l)  -  Aerosol  transmittance  for  incoming  ray  from  Fireball-L 
to  Point  P  on  Earth's  surface.  (Not  used  in  RQSCOE-IR.) 


Common  /ALTODN/ 

Variables  in  /ALTODN/,  defined  in  Subroutines  ATMOSll  and  SPCMIN  in 
Vol .  14a-l,  are  of  no  direct  interest  for  the  NBR  Module  per  se. 


Common  /ATMOUP/  HL,  SBAR ,  IOGRN,  PP,  RHO,  TT,  SN1(30),  HR HO ,  FEHSEQ 

HL  -  Local  apparent  time  (set  by  Subroutine  SOLZEN). 
(decimal  hours) 


SBAR 

I  DORN 

PP 

RHO 

TT 

SMI  (I) 

HRHO 

FEHSEQ 


Average  10.2-cm  solar  fl uy  (set  by  Subroutine  SOLCYC). 
[1.0E -22 /(nr  Hz)] 

Oiurnal  parameter  (set  by  Subroutine  SOLZEN). 

=1,  for  daytime 
=-l,  for  nighttime 

2 

Pressure  (set  by  Subroutine  ATMOSU).  (dyne/cm  ) 

Mass  density  (set  by  Subroutine  ATMOSU).  (g/cm  ) 

Temperature  (set  by  Subroutine  ATMOSU).  (deg  K) 

Species-I  density.  (1/cm^).  The  full  array  is  defined 
in  Subroutine  ATMCSU.  See  Table  7-9  for  those  species 
used  in  computing  the  molecular  transmittance. 

Density  scale  height  (set  by  Subroutine  ATMOSU).  (km) 

Fractional  error  in  hydrostatic  equilibrium  (set  by 
Subroutine  ATMOSU). 


Common  /CDDATA/ 


The  variables  in  /CDDATA/  are  defined  on  p.  74  of  Volume  24. 
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Cannon  /CLDFREQ/ 

The  variables  in  /CLDFREQ/  are  defined  on  pp.  74,  75  of  Volume  24. 
Common  /CLDWT/ 

The  variables  in  /CLDWT/  are  defined  on  p.  76  of  Volume  24. 


Common  /CLOUD/ 

The  variables  in  /CLOUD/  are  defined  on  pp.  76,  77  of  Volume  24. 
However,  they  are  used  only  in  the  deterministic  cloud  submodel  and  hence  are 
not  used  in  the  NBR  Module. 


Common  /CONFIG/ 

The  variables  in  /CONFIG/  are  defined  on  p.  77  of  Volume  24. 

Common  /DIFFUS/ 

The  variables  in  /DIFFUS/  are  defined  on  p.  78  of  Volume  24;  however, 
they  are  not  used  in  the  NBR  Module. 

Common  /FIR3AL/  FBLAT(IO),  FBLON(IO),  FBALT(IO),  F3RINT(10) 

/FIRBAL/  appears  in  two  routines  (RINOUT  and  SURRAO)  even  though  the 
NBF  Module  does  not  use  any  of  its  variables.  The  reason  for  the  appearance 
of  /FIRBAL/  is  that  Subroutine  SURRAO  was  created  with  a  dual  purpose  in  mind: 

(1)  As  an  integral  part  of  the  NBR  Module,  to  be  called  from  Sub¬ 
routine  UP* ELL  ,t i th  only  the  sun  as  a  source. 

(2)  As  a  utility  routine,  to  be  called  by  routiner  (other  than 
UPWELL)  needing  the  surface  radiance  (thermally  emitted  and 
source  (sun  or  fireball)  reflected).  For  such  use,  /FIRBAL/  was 
’  ncl  uoed . 

However,  Subroutine  SURRAO  is  not  used  as  a  utility  routine  in  ROSC0E-1R. 

FBALT(L),  -  Altitude,  north  latitude,  and  east  longitude  of 
FBLAT(L),  Fireball-L.  (km,  radians,  radians) 

FBLON(L) 

FBRINT(l)  -  Radiant  intensity  of  Fireball-L.  (W/sec) 
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Common  /FLAGS/  ITFLAG 

In  order  that  Subroutine  TRANS1'  in  the  Natural  Cloud  Module,  called 
by  Subroutine  ClDWT,  will  know  whether  or  not  the  sun  is  above  or  below  the 
horizon,  we  require  Subroutine  :JPRELL  to  set  ITFlAG  in  /FLAGS'  before  cal  lino 
Subroutine  CIOWT . 

ITFLAC,  -  F'ag  indicating  the  diurnal  condition  at  Point  V  ‘  . 

=0,  Sun  is  below  the  horizon 
=1,  Sun  is  above  the  horizon 

Common  /I SWOOP/ 

The  variables  in  /TDNDilP/  are  defined  on  pp,  133,  134  of  Volume 
14a-l;  however,  the*  are  not  used  in  the  N3R  Module. 

Common  /DPT  ION  /  TRNS3PT 

See  TRNS'JPT  in  Table  7-8  for  Subroutine  TRANS3.  FAST  in  Table  6-10 
for  Subroutine  TRANS,  and  TRNSOPT  in  Table  o-2  for  Subroutine  JPwELL. 


Common  /DPT INI/  RADSw 

See  RAQSV  in  Table  6-2  for  Subroutine  JPviELL  and  Table  6-3  for  Sub¬ 
routine  TRNSCO. 


Common  /PAR AMS/ 

/P ARAMS/  contains  constants  used  in  the  Natural  Cloud  Module.  They 
are  defined  on  p.  80  of  Volume  24  and  are  set  in  Program  DRVJPW. 


Common  /t-DSITN/  PDSLAT ,  PJSLON  ,  PC'S  AIT ,  SPCLAT  ,  SPCL'DN,  C12ALT.  C12L0N.  C12ALT 

P0S.MT,  -  Altitude,  north  latitude,  and  east  longitude  of  Point  p 
P0SL4T,  at  which  1 ine-of-sight  ( from  fictitious  detector  at 

POSLON  Point  V)  intersects  earth’s  surface.  Set  in  Subroutine 

JPNELL.  (km,  rad’ans,  radians) 


SPCLAT,  -  North  latitude  and  east  longitude  of  the  point  on  an 
SPCLOU  assumed  smooth  horizontal  surface  for  a  specular  ret  ec- 

tion  from  the  source  to  the  detector  at  Point  V.  (Set 
in  Subroutine  GLITTR  if  SpCi!LR  =  .TRUE  . . )  (radians) 


C12ALT, 

C12LAT, 

C12L3N 


Altitude,  north  latitude,  and  east  longitude  of  Point  C 
at  which  line-of-sight  (directed  toward  Point  D  from 
fictitious  detector  at  Point  V),  intersects  the  12-km 
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altitude  surface.  set  'n  subroutine  -P«ELL.  (Km, 

: adi ans .  rad1 ansi 

CoRwon  vNl*U-  NINE 

See  NCNC  in  ei then  tabic  6-?.  for  sjtirojtine  .■T’wEuu  or  Table  o-S  far 
Subroutine  TTN5C0 . 

Common  'S.VOD  XS,  Ys ,  25,  <3,  YD,  ZD.  Ul ,  VL .  wL 

3y  calls  to  Subroutine  GE  3  Xy  Z ,  Subroutine  jP'KElL  sets  -  for  use  m 
Subroutine  S'.V  DM  after  transfer  froa  function  TTViSt  in  the  Natural  Cloud 
Module  -  the  E arth-centered  Cartesian  coordinates  of  the  sun  ■  xS.  YS,  2S  !  and 
of  the  fictitious  detector  (XD.  YD,  7D1  at  3oint  V;  the  solar  coordinates  are 
zeroed  if  the  sun  is  below  the  horizon.  jPwELL  also  sets  the  direction 
cosines  UL ,  VL  ,  XL  1  of  Point  0  as  viewed  from  ^oint  V. 

XS ,  -  Cartesian  coordinates  of  the  source  location  in  the 

Y5,  Earth-centered  system.  The  x-direction  points  to  zero 

IS  degrees  longitude  and  ninety  degrees  colatitude.  Che  z 

direction  is  through  the  nortn  pole,  (km) 

XD .  -  Cartesian  coordinates  of  the  detector  location  in  tne 

YD,  Earth-centered  system.  ( km', 

ID 

^L.  -  Direction  cosines  of  tne  1 ine-of-sight  vector  in  the 

Vl ,  Earth-centered  system. 

wL 

■Common  5  XT  ELL  .■  SATLAT .  5ATUN,  5ATALT,  SATIZN  .  SA"AZ: 

SATELL  is  not  used  in  the  N  'T  Module  becauv-  Ub routine  JPwEL . 

does  not  deal  with  real  sensors.  -$ATELL  •  was  included  in  „•  jb routine  >  A  \  AD 

on  the  assumption  that  it  would  be  a  utility  routine,  used  when  a  real  sensor 

in  a  satellite  looks  at  the  ground,  however.  yJTTAD  is  not  so  used. 

5ATALT,  -  Altitude,  nortn  latitude,  and  east  longitude  of 
SAT'.AT,  satel  1  i  te-borne  defector,  (km.  radians,  ra.njns' 

SATLDN 

SATIES  -  Zenith  angle  of  ray  reflected  at  3oint  3  towards  the 
satellite,  (Met  computed.)  (radians! 

SATAZI  -  Absolute  value  of  azimuth  of  reflected  ray.  measured 
frail  principal  plane  determined  by  vertical  plane 


t  rough  inconing  ray  from  sun.  (Not  con;.ited.) 
( rau’ ans! 


Connor  /SOL ARP/  SOt.LAT,  SOUON,  SOLIRR(U') 

The  position  variables,  set  in  Subroutine  ATMQSo  after  it  calls  Sub¬ 
routine  SOLQRB  during  the  initialization  phase,  are  used  in  Subroutine  JPWELL 
SURRAD,  and  R1NOUT.  The  irradiance,  set  in  Subroutine  SCRRAD  after  it  calls 
Subroutine  SOLRAD,  is  used  in  Subroutines  SURRAD  and  ORWELL. 

SOLLAT,  -  North  latitude  and  east  longitude  of  subsolar  peint- 
SOlLON  (radians) 

SOLIRR(l)  -  Solar  spectral  irradiance  at  ttje  top  of  the  atmosphere 
L=1,NWAVEJ  at  wavenumber- index  L.  [■/(cm"  cm  j 


Common  /SORCE/  NSORCE,  HSORCE(l),  RSGRCE (11,  THETAS,  PHIS 

The  geometrical  variables  in  /SORCE/  are  set  by  Subroutine  cPLELL  in 
terms  of  the  solar  position  (the  only  source  with  which  Subroutine  uPWELL  is 
concerned)  and  are  passed  to  Function  TRANSF  in  the  Natural  Cloud  Module. 


NSORCE 


HSORCE(l) 


RSORCE(l) 


THETAS, 

PHIS 


Tne  number  of  sources.  Set  to  1  in  oata  statement  in 
Subroutine  UPWELL. 

Altitude  of  sun  (RSUN).  RSU’fi  is  set  in  data  statement 
in  Subroutine  UPWELL.  (km) 

Radius  of  source.  True  value  for  sun  is  not  relevant 
for  applications  in  NBR  Module.  Set  to  0.0  in  data 
statement  in  Subroutine  UPWELL. 

Colatitude  and  east  longitude  of  subsolar  point. 

( degrees) 


common  /SOURCE/  SRCLAT,  SRC  LON,  SRCALT ,  SRCFLG,  SRCZEN(ll),  SRCSR(U) 

The  geometrical  variables  in  /SOURCE/  are  set  by  Subroutine  RINCJT. 
Currently  (April  1980)  only  the  sun  is  used  as  a  source  for  Subroutine  SSRRA 0. 
(Fireballs  are  never  used  in  the  call  to  Subroutine  SURRAD  from  Subroutine 
OPWELL  in  the  NBR  ftodule.) 

SRCALT  -  Altitude  of  source  i i  not  the  sun.  !Lm) 


SRCLAT,  -  North  latitude  and  east  longitude  of  source  (sun  or  f 
SRC.L0N  ball),  (radians) 


ire- 
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SRCFI.G  -  Flag  characterizing  source 
=1,  Source  is  sun 
=  2,  Source  is  fireball 

SRCZEN(l)  -  Zenith  angle  of  ray  incoming  to  Point  P  from  the  sun. 

( radians) 

Por  L-l , IF  IRES  (Not  used  in  NBR  Module) 

SRCZEN(L+1)  -  Zenith  angle  of  ray  incoming  to  Point  P  from  Fireball-L. 
( radians) 

SRCSR(l)  -  Not  defined. 

SRCSR ( L +1 )  -  Slant  range  from  Fireball-L  to  Point  P.  (km) 


Conmon  /TECTOR/  DETLAT,  DETLON,  OETALT,  DETZEN,  DETAZI (11 ) 

Subroutine  UPWELL  uses  /TECTOR/  to  position  3  fictitio-,  detector  at 
Point  V  and  pass  the  information  to  Subroutines  SURRAD,  R1N0UT,  and  GLITTR. 
The  scattering  angles  are  set  in  Subroutine  RINOUT  and  used  in  Subroutine 
SURRAD. 


DETALT,  -  Altitude,  north  latitude,  and  east  longitude  of 
DETLAT,  fictitious  detector  at  Point  V.  (km,  radians,  radians) 
DETLON 


DETZEN  -  Zenith  angle  of  ray  reflected  at  Point  P  on  Earth's 
surface  toward  the  detector  at  Point  V.  (radians) 

DETAZl(l)  -  Absolute  value  of  azimuth  angle  of  reflected  ray, 

measured  from  principal  plane  determined  by  vertical 
plane  through  incoming  solar  ray.  (radians) 

For  L=l, IFIRE  (Not  used  in  NBR  Module) 

DETAZKL+l)  -  Absolute  value  of  azimuth  angle  of  reflected  ray, 

measured  from  principal  plane  determined  by  vertical 
plane  through  incoming  ray  from  fireball,  (radians) 


Corrmon  /TIME/  IYRS,  IMONS,  IDAYS,  ZT,  PLAT,  PLON,  UT,  GAT,  FYR,  FST,  RH05KM, 
CHI 

The  variables  IYRS,  IMONS,  IOAYv,  and  ZT  are  read  by  Program  DRVUPW. 

GCO  and  GLO  are  also  read,  in  terms  of  which  PLAT  and  PLON  are  set.  UT  is  set 

by  Subroutine  ZTTOUT,  GAT  by  Subroutine  SOLORB,  FYR  and  FST  by  Subroutine 

JULIAN,  RH05KM  by  Subroutine  ATMOSU,  and  CHI  by  Subroutine  SOLZEN. 

IYRS  -  Number  of  the  year  in  the  1900 ‘s  at  east  longitude  GLO 
(p.g.,  1980  becomes  80). 
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1M0NS  -  Number  of  the  month  at  east  longitude  GLO  (e.g., 

February  becomes  2). 

IOAYS  -  Day  of  the  month  at  east  longitude  GLO. 

ZT  -  Zone  time  for  the  15-degree  longitude  interval  contain¬ 
ing  east  longitude  GLO.  (decimal  hours) 

GCO,  -  Geograpnic  colatitude  and  east  longitude  of  grid  origin 
GLO  or  whatever  reference  point  is  desired,  (degrees) 

PLAT,  -  North  latitude  and  east  longitude  of  grid  origin. 

PLON  (radians) 

UT  -  Universal  time  corresonding  to  zone  time  ZT.  (decimal 
hours) 

GAT  -  Greenwich  apparent  time,  (decimal  hours) 

FYR  -  Fractional  season-year,  being  zero  on  1  January  in  the 
northern  hemisphere  and  zero  on  1  July  in  the  southern 
hemi sphere . 

FST  -  Fractional  summer,  being  one  on  1  July  and  zero  on  1 

January  in  the  northern  hemisphere  and  reversed  in  the 
southern  hemisphere. 

RH05KM  -  Mass  density  of  dry  air  at  5 -km  altitude,  (g/cm  ) 

CHI  -  Zenith  angle  of  the  sun  at  grid  origin,  (radians) 

Connon  /U PW ELS/  UPWALT,  UPWLON,  UPWLAT,  NALT (5) ,  ZKM( 13,5 ) ,  NNADIR,  NAZI, 

NWAVE (5) ,  IDAYV ,  CLDFLG ,  UPRADN ( 13 , 10 , 5 ) ,  WV(10,5),  I KM, 

N3ANDS 

Program  DRVUPW  sets  the  variables  UPWALT,  UPWLON,  UPWLAT,  and  NBANDS 
and  the  array  NWAVE ( M)  (M;JBAND=1, NBANDS!  and  reads  the  variables  NNADIR, 

NAZI,  and  CLDFLG.  Program  DRV'JP'W's  call  to  Subroutine  SLTALT  sets  the  arrays 
NALT(M)  and  ZKM(1,M)  (M=l, NBANDS;  1=1, NALT( M)) .  The  call  to  Subroutine  UPWELL 
sets  IOAYV,  UPRADN (I ,L,M)  (for  1  =  1, NALT ( M) ;  1=1 ,NWAVE(M);  M=l, NBANDS),  and  I  KM 


The  array  WV(L,M)  (L=1,NWAVE(M) ;  M=l, NBANDS)  is  not  used  in  the  stano 
alone  version  of  the  NBR  Module  but  is  set  in  Program  i  00K  in  ROSCOE-IR  to 
record  the  group  of  central  wavenumbers  of  the  band-intervals  used  in  calling 
Subroutine  UP'WELL  for  each  broad-band  M. 
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UPWALT  -  Surface  altitude  of  the  sub-V-point.  (km) 

UPWALT,  -  North  latitude  and  east  longitude  of  Point  V  at  which 

UPWLON  upwelling  radiance  is  computed,  (radians) 

For  1=1, MALT (M) ;  L=1 , NWAVE (M) ;  M=1 .NBANDS 

NALT(M)  -  Number  of  altitudes  ZKM(l.M)  for  (broad)  wavelength-band 
index  M.  Uefines  NALTJ. 

ZKM(I.M)  -  Altitudes  of  Point  V  above  UPWALT  at  which  upwelling 
radiance  is  computed,  (km) 

NNADIR,  -  Number  of  nadir  and  azimuth  angles  at  Point  V  at  which 
NAZI  upwelling  radiance  is  computed. 

NWAVE(M)  -  Number  of  wavenumbers  at  which  the  upwelling  spectral 
radiance  is  to  be  computed  for  (broad)  wavelength-band 
index  M.  Defines  NWAVEJ. 

IDAYV  -  Index  for  diurnal  condition  at  sub-V-point, 

=0,  Solar  zenith  angle  >  90  degrees 
=1,  Solar  zenith  angle  £  9u  degrees 

CLDFLG  -  Index  for  inclusion  of  natural  clouds. 

=0.,  Natural  clouds  are  not  included 
=1.,  Natural  clouds  are  included 

UPRADNd  ,L,M)  -  The.  nadir-averaged  value  of  UP  RADA  ( 1 ,  J ,  L ) .  LW/(cm^  sr 

cm"1 ) ] 

W V ( L , M )  -  The  array  of  central  wavenumbers  corresponding  to 

(broad)  wavelength-band  index  M.  (Not  used  in  stand¬ 
alone  version  of  the  NBR  Module.  Setjin  Program  0L00K 
and  used  in  Subroutine  UPWELT.)  (cm) 

IKM  -  Index  for  number  of  altitudes  at  which  calculations  are 
made  when  clouds  are  included.  Used  in  Subroutines 
SURRAD  and  UPWELL. 

NBANDS  -  Number  of  (broad)  wavelength  binds. 


Common  /  UPWELS 1  /  R010  (o ,  10  ) ,  ROlOAt  6, 10  ,  lU  )  ,  ROlON(b.lO), 

R025(6,10! ,  R025A( 6 , 10 , ID ) ,  R025N(6,1G), 

RU50(6 , 1U ) ,  R050A( 6 , 10 , 10 ) ,  R050N(6,10), 

R090 (6,10),  R090A(b,10,10) ,  R090N(6,1U), 

R 1 00 ( 6 , 10  } ,  R100A< 0,10,10),  RlOUN(b.lO) 

Each  of  the  arrays  in  /UPWELS1/  is  computed  in  Subroutine  UPWELL. 
For  XXX  -10, 25, 50, 90, 100;  IKM  1  1; 
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J  =  1  ,NNAO IR ;  K=l,NAZl;  L=1,NWAVE(M) 

RXXX(K,L)  -  XXX-percentil  e  of  the  integral  distribution  of  the  total 
(including  that  from  statistical  clouds)  natural  up- 
welling  spectral  radiance  received  at  Point  V  for  wave- 
number-L  (at  implicit  altitude-IKM  above  surface  mate¬ 
rial  MSM)  along  a  ray  directed  to  Point  P  on  Earth's 
surface  (at  implicit  nadir-J  and  explicit  azimuth-K). 
LW/(cnT  sr  cm-1)] 

Note:  RXXX(K.L)  does  not  include  ARCVA(IKM,J  ,L) . 
Currently,  UPRAD(K.L)  and  RXXX(K.L)  are  being  written  in 
binary  form  on  Logical  Unit  No.  8,  for  all  appropriate 
altitudes  and  nadirs. 

RXXXA(IKM,J,L)  -  The.azimuth-averaged  value  of  RXXX(K,L).  tW/(cm2  sr 

cm'1)] 

RXXXN(IKM.L)  -  The.nadir-averaged  value  of  RXXXA(IKM,J,L) .  [W/(cm2  sr 
cm  l)] 

ARCVA(  I  KM  ,J  ,L )  -  When  clouds  are  considered,  a  component  of  the  upwellir.g 

spectral  radiance  received  at  Point  V  (at  altitude-IKM), 
from  air  emission  above  12-km  altitude,  along  a  ray 
directed  to  Point  P  on  the  Earth's  surface  (at  nadir-J 
and  independent  of  azimuth-K).  [W/(cm  sr  cm)] 

ARCVN(IKM.L)  -  The.nadi r-averaged  value  of  ARCVA(IKM,J,L).  [W/cm2  sr 
cm"  )] 


Conmon  /UPWELS2/  JBAN01 

The  variable  0BAND1  is  set  to  the  (broad)  wavelength- band  index  JBANO 
in  Subroutine  UPWELl  and  passed  through  /UPWELSZ/  To  Subroutine  SURRAD  to 
facilitate  some  print. 


Common  /UPWELS3/  UPRAD(6,1Q),  UPRADA( 13, 10, 10) 

Both  of  the  arrays  in  /UPWELS3/  are  computed  in  Subroutine  UPWELL. 
(As  the  code  has  developed,  there  remains  little  reason  for  including  the 
array  UPRAD  in  /UPWELS3/ . 

For  1=1 ,NALT (M) ;  J=1,NNADIR;  K=1,NAZ1;  L=1,NWAVE(M) 

UPRAO(K.L)  -  Natural  upwelling  spectral  radiance  received  at  Point  V 
(at  altitude-I  above  surface  material  MSM)  along  a  ray 
directed  to  Point  P  on  Earth’s  surface  (at  nadir-J  and 
azimuth-K).  I-  and  J -dependence  is  not  stored,  so  user 
must  print  UPRAD(K,L)  iirmedi ately  after  computation  if 
he  wants  to  see  them.  Currently,  UPRAD(K,L)  and 
RXXX(K,L)  are  being  written  in  binary  form  on  Logical 
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Unit  No.  8,  for  all  appropriate  altitudes  and  nadirs. 
[W/(cnr  sr  cm'i)] 

UPRADA( I ,J,L)  -  The, azimuth-averaged  value  of  UPRAQ(K.L).  [W/(cm^  sr 

cm'1!] 


Coranon  /VPC/  WVFLAG,  METHOD 

Currently,  in  Program  DRVUPW,  we  set  WVFLAG=0.0  and  METHOD=0. 

WVFLAG  -  Flag  for  optional  treatment  of  water  vapor. 

=  0.0,  Normal  treatment 
4  0.0,  Optional  treatment 

METHOD  -  Flag  indicating  one  of  four  options  for  treatment  of 
water  vapor. 

=1,  Data  values  in  parts  per  million  by  ma^s.  (ppmm) 

=2,  Data  values  in  absolute  tumidity.  (g/nr) 

=3,  Data  values  in  relative  humidity,  (percent;  10  per¬ 
cent  is  input  as  10.0,  not  0.10) 

=4,  Data  values  in  dew-point  temperature,  (deg  K) 


Comuon  /XY/  TT(10) 

TT( I )  -  Temperature  array  in  atmospheric  transmission  model. 

Set  as  data  in  Program  DRVUPW  and  used  in  Subroutines 
SEGMENT  and  TRANS. 

C ornncn  /XYZCOM/  ITMTE,  LTMTE,  NS,  HSHELl (81 ) ,  TS(81),  PS(81),  XNSPEC(81 ,10) , 
U(10,10,Z),  UP ( 10, 10,2 ) ,  NMOLS,  FACT 
The  variables  ITMTE,  LTMTE,  and  NMOLS  are  set,  and  the  variable  FACT 
is  read,  by  Program  DRVUPW.  Subroutine  SHELLS  sets  the  variable  NS  and  the 
arrays  HSHELL (81 ) ,  T$(81),  PS(81),  and  XNSPEC(81 ,10 ) .  Cumulative  values  of 
the  path- parameter  arrays  U (10, 10, 2)  and  UP (10, 10, 2)  are  set  by  Subroutine 
PATH  and  used  by  Subroutine  TRANS  to  compute  the  molecular  transmittance. 

ITMTE,  -  Auxiliary  input  and  output  data  file  numbers  for 
LTMTE  Subroutine  TRANSR.  Set  to  2  and  3,  respectively,  in 
Program  DRVUPW.  See  TAPIN  and  TAPOT  in  Table  7-8  for 
Subroutine  TRANSB  for  more  information. 

NS  -  Number  of  boundary  altitudes  used  in  Subroutine  SHELLS. 

For  J=1,NS 

HSHELL (J),  -  Altitude,  temperature,  pressure,  and  species-N  density 

T$(J),  at  altitude-boundary,J. 

PS(J  ) ,  (cm,  deg  K,  atm,  cm*"5) 

XNSPEC(J) 


For  1  =  1,2  (adequate  for  ambient  atmosphere);  M  =  1 , 10 
U(l,N,2)  -  Cumulative  value  of  path  parameters  U  (species-N  areal 

UP (i ,N ,2 )  density)  and  UP  (product  of  U  and  pressure  P)  for 

temperature- index  I  and  species-N.  See  Table  5-5  for 
Subroutine  PATH  and  Table  6-10  for  Subroutine  TRANS, 
(cm  at  STP,  atm-cm  at  STP) 


NMOLS  -  Number  of  species.  Set  in  Program  DRVUPW  and  used  in 
Subroutines  ATMRAO  and  TRANS  (where  known  as  NSPEC). 


FACT  -  Parameter  controlling  the  number  of  altitude  boundaries 
and  their  spacing.  See  Table  7-9  for  Subroutine  SHELLS 
for  more  information. 


Common  /ZHCHEX/  ZHFLAG,  SPIFLG 

The  variables  in  /ZHCHEX/  are  defined  and  their  use  (to  insure  Sub¬ 
routine  ATMOSU  is  called  prior  to  Subroutines  10NQSU  and  SPCM1N)  is  described 
in  the  listings  of  Subroutines  ATMOSU,  IONOSU,  and  SPCMIN  in  Volume  14a- 1. 
/ZHCHEX/  does  not  affect  the  NBR  Module  per  se. 

Common  /ZHTEMP/  NZHT,  ZHT(31),  TZH(31),  TPFLAG 

For  steps  required  by  the  user  to  bypass  the  code's  specification  of 
the  temperature  profile  in  the  low-altitude  (0-  to  120-km)  region,  see  p.  38 
in  Volume  14a-l.  (The  arrays  ZHTZ(3)  and  TZKZ(3)  appearing  as  arrays  in 
/ZHTEMP/  in  Volume  14a-l  are  development  artifacts  and  should  be  deleted.) 
Currently,  in  Program  DRVUPW,  we  set  TPFIAG=0.0. 

NZHT  -  Number  of  altitudes  (31)  at  which  the  low-altitude  tem¬ 
perature  profile  is  defined. 


For  1=1, NZHT 

ZHT(I)  -  Altitudes  at  which  the  temperature  profile  is  defined. 
=0.0(4.0)120.0  km 

TZH(I)  -  Temperature  profile  (for  TPFLAG=0.0),  determined  by 

interpolation  of  the  data  base  [US-66]  for  latitude  and 
season,  used  as  input  to  the  major  atmospheric  species 
model  for  the  low-altitude  range  from  0-  to  120-km  alti¬ 
tude.  (deg  K ) 

-  Temperature  profile  (for  TPFLAG  i  0.0),  specified  by 
user  at  altitudes  z  =  0(4)120  km.  (deg  K) 

TPFLAG  -  FI  aq  for  optional  treatment  of  temperature  profile. 

=  0.0,  Normal  treatment 
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¥  0.0,  Optional  treatment,  allowing  Subroutine  TEMPZH  to 
read  the  user- sped fied  profile  at  altitudes  z  = 
0(4)120  km 

7-3  DRIVER  PROGRAM  DRVUPW  AND  INITIALIZING  ROUTINES 

7-3.1  Cal cul ational  Steps  in  Program  DRVUPW 

Here  we  describe  the  calcul ational  steps  required  in  the  driver  for 
the  NBR  Module,  Program  DRVUPW. 

A.  Initialization 

1.  DSA  System 

a.  Set  parameters 

b.  Call  QINITL 

2.  Ambient  atmosphere 

a.  Read  time  and  place 

b.  Set  option  parameters  for  water  vapor  and  temperature 
profiles 

c.  Call  ATMOSU 

3.  Natural  clouds 

a.  Read/set  parameters 

b.  Call  CLOUOO 

4.  Create  Datasets-BN  and  -31 

a.  Read  spectral  data 

b.  Call  CREATE,  PUTSCH,  or  PUTTOP 

5.  Compute  band-model  parameters 

a.  Set  option 

b.  Call  TRANSB 
S.  Atmospheric  shells 

a.  Read/set  option 

b.  Call  SHELLS 

7.  Prepare  to  call  UPWEIL 

a.  Read/set  aerosol  parameters 
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b.  Read/set  atmospheric  emission  option  and  transmittance 
parameter 

c.  Read/ set  geometry  parameters  for  UPWELL 

d.  Read/ set  surface  material  parameters 
B.  Operation 

1.  Initiate  (broad)  wave! ength- band  spectral  loop 

2.  Get  Datasets 

a.  Call  PREV  for  Dataset-BN 

b.  Call  PREV  for  Dataset-BI 

3.  Set  altitudes  for  UPWELL 

a.  Set  (broad)  wavelength-band  limits 

b.  Call  SET  ALT 

4.  Call  UPWELL 

5.  Write  results 

7-3.2  Subroutine  SETALT 

The  purpose  cf  Subroutine  SETALT  is  to  provide  a  set  of  altitudes  at 
which  Subroutine  UPWELL,  for  a  given  spectral  range,  will  compute  the  up- 
welling  natural  radiation.  To  minimize  the  number  of  such  altitudes,  we  have 
accounted  for  the  spectral  dependence  of  the  air  transmittance,  as  now  de¬ 
scribed. 


Our  approach  in  selecting  altitudes  was  to  compute  the  upwelling 
radiance  for  a  strictly  nadir-looking  sensor  as  a  function  of  altitude  and 
wavelength  in  the  2-  to  5-wm  band.  The  wavelengths  used  are  the  27  test 
values  given  in  Table  7-5.  The  resolution  was  10  cm'^.  The  altitudes  used 
are  0(0.1)1(1)10(2)20(5)30(10)100  km.  We  used  an  atmosphere  (see  Volume 
14a-l)  >r  a  zone  time  of  0.0  hours  on  19  September  19/8  at  a  geographic  loca¬ 
tion  of  45-deg  north  latitude,  0-deg  longitude.  The  version  of  the  code  avail¬ 
able  at  the  time  required  the  surface  temperature  to  be  independently  speci¬ 
fied.  It  was  set  at  288  deg  K  (instead  of  the  air  temperature  at  the  first 
shell  boundary  which  was  286.5-degK).  The  surface  emissivity  was  0.9.  The 
zoning  of  the  atmosphere  into  shells  was  determined  by  FACT^l,  but  the  algo- 
ritbn  used  was  not  the  one  currently  -;et  by  GRC  (see  Table  7-9  for  Subroutine 
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SHELLS)  but  the  one  originally  specified  by  G.E.  Tempo,  according  to  which  the 
76  shell  thicknesses  were  0.5263  km  between  0  and  20  km  and  2.105  km  from  20 
to  100  km. 

Table  7-5.  Wavelengths  used  in  developing  Subroutine  SETALT. 


Wavelength,  um 


Bin 

No.  Bin  Edge _ T est  V al ues _  Bin  Edge 


1 

2.0 

2.0 

2.1 

2 

2.1 

2.40, 

2.50, 

2.55 

2.575 

3 

2.575 

2.60, 

2.65 

2.675 

4 

2.675 

2.70 

2.725 

5 

2.725 

2.75, 

2.80, 

2.85 

2.825 

6 

2.875 

2.90, 

2.95, 

3.00, 

3.20,  3.50,  4.00,  4.10  4.15 

7 

4.15 

4.20, 

4.25, 

4.30, 

4.40,  4.50  4.55 

8 

4.55 

4.60, 

4.70 

4.75 

9 

4.75 

4.80 

4.85 

10 

4.85 

4.90, 

5.00 

5.0 

The  results  for  these  upward- vertical  radiance  calculations  are  shown 
in  Figures  7-2a,  7-2b,  and  7-2 c  for  the  27  wavelengths.  (The  peaks  at  50-km 
altitude  for  the  strongly  attenuated  wavelengths  simply  reflect  a  peak  in  the 
atmospheric  temperature  profile  at  that  altitude.)  Examination  of  these 
curves  led  us  to  set  the  bin  altitudes  given  in  Table  7-6.  More  detailed  work 
may  indicate  a  need  for  revising  the  bin  edges  and/or  altitudes.  Subroutine 
SETALT  is  designed  so  that  if  the  wavelength  band  of  interest  spans  more  than 
one  bin,  a  set  of  altitudes  is  provided  by  combining  those  for  each  of  the 
spanned  bins.  Table  7-7  gives  the  input  and  output  variables  for  Subroutine 
SETALT. 

The  results  in  Figures  7-2a,  7-2b,  and  7-2c  are  replotted  in  Figure 
7-3  to  show  tht  spectral  dependence  of  the  upwelling  radiance  for  a  nadir¬ 
looking  sensor,  for  altitudes  of  0,  5,  and  50  km.  The  curve  for  0-km  altitude 
is,  of  course,  just  that  given  by  the  Planck  function  for  T=288  deg  K  and  an 
emissivity  of  0.9. 


209 


^m)  for  nadir-looking  sensor 


Figure  7- 2b.  Altitude 


Table  7-6.  Bin  altitudes  selected  for  Subroutine  SETALT. 


Bin 

No. 

Altitudes,  km 

1 

0,  1,  12,  20,  100 

2 

0,  1,  12,  100 

3 

0,  l,  3,  12,  100 

4 

0,  1,  2,  4,  9,  12,  20,  30,  50,  70,  100 

5 

0,  1,  3,  12,  100 

6 

0,  1,  12,  100 

7 

G,  1,  3,  6,  12,  20,  50,  70,  100 

8 

U,  1,  12,  100 

9 

0,  1,  12,  30,  100 

10 

0,  1,  12,  100 

Table  7-7 

.  Input  and  output  variables  for  Subroutine  SETALT . 

INPUT  VARIABLES 

Argument  List 

ALMIN ,  - 

Minimum  and  maximum  wavelengths  for  which  upwelling  natural 

ALMAX 

radiance  is  to  be  computed,  for  (broad)  wavelength-band 
index  JBAND .  (  urn) 

JBAH)  - 

Index  for  list  of  (broad)  wavelength  bands.  (1  to  5) 

Data  Statements 

NB [ML  1  - 

Number  of  wavelength  bins  (or  number  of  wavelength-bin 
boundaries  minus  one). 

For  L=1,NBINL1+1 

BINLAM(L)  - 

Wavelength  of  bin-boundary  L.  (mi) 

For  1=1, NAITL ( M) ,  M=1,NBINL1 

NALTl(M)  - 

Number  of  altitudes  for  wavelength-bin  M, 

HUPWEL ( I  ,M)  - 

Altitude-I  for  wavelength-bin  M.  (km) 

( continued) 
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Table  1~7.  Input  and  output  variables  for  Subroutine  SETALT  (Cont'd', . 


OUTPUT  VARIABLES 
UPWELS  Common 

For  UBAND  =J=1,5;  1 = 1 , MALT ( J ) 

NALT(J)  -  Number  of  altitudes  for  (broad)  wavelength-band  index  JBAND 

ZKM( I ,J )  -  Altitudes  of  Point  V  above  reference  altitude  (UPWAIT)  at 

which  upwelling  natural  radiance  is  computed  for  (broad) 
wavelength-band  index  JBAMO.  (km) 


7-3-3  Other  Initialization  Routines 
7 -3 .3.1  DSA  System 

Comments  in  our  listing  of  Program  ORV'JPw  define  the  six  words  and/or 
arrays  that  are  initialized  there  before  calling  QINITL.  We  also  state  how  to 
estimate  minimum  storage  requirements  for  high  speed  memory  in  terms  of  the 
number  and  sizes  of  datasets.  For  more  information  on  the  GRC  DSA  System,  see 
oP-/B.  The  version  of  the  DSA  System  we  havp  used  was  prepared  by  L.  Ewing  of 
G.E.  Tempo.  Whereas  it  differs  somewhat  frcn  the  GRC  version, it  is  sain  to  be 
equivalent,  at  least  for  the  current  aoplication. 

7-3. 3. 2  SM  Routines  (ATMGSU,  CLOJDd) 

Full  documentation  is  given  for  Subroutines  ATMOS*,  anq  CL’jj'Ju  in 
Volumes  14a- 1  and  74,  respectively. 

7-3. 3.3  G.E.  Tempo  Routines  ( TRANS6 ,  SHELLS) 

The  purpose  of  Subroutine  TRANS5  is  briefly  described  m  Table  7 - 3 a 
and  in  Volume  31  (p.  74).  Our  more  detailed  summary  of  its  input  and  output 
variables  is  given  in  Table  7-8. 


Table  7-8.  Input  and  output  variables  for  Subroutine  TRANSB. 


INPUT  VARIABLES 
Argument  Li st 

L8AND  -  List  Header  Variable  (LHV)  for  Wavelength  Bands  Dataset-BN 
(No.  114).  Strictly,  LBAND  is  the  pointer  (i.e.,  it  con¬ 
tains  the  (Q-array)  address)  for  the  list  header  of  the 
Wavelength  Bands  Oataset-BN.  In  GRC  usage,  LBAND  is  stored 
as  Word-12  of  Dataset-ST  (No.  111).  In  the  SAI  stand-alone 
version  of  the  NBR  Module,  Dataset-ST  (No.  Ill)  is  not 
used,  but  LBAND  is  still  generated  in  Program  DRVUPW  and 
used  as  the  LHV  for  Oataset-BN. 


OPTION  Comnon 

TRNSOPT  -  Logical  variable  affecting  (a)  procedure  for  converting  the 
basic  5-cm  1  resolution  band-model  parameters  to  those  for 
the  user-specified  resolution  and  (b)  possible  redundancy 
of  output  data  if  user-selected  bands  overlap  with  common 
spectral  intervals. 

=  .TRUE . ,  TRANSB  provides: 

(a)  in-band  (more,  precisely ,  "in-interval")  averaged  band- 
model  parameters.  (There  is  no  limit  on  the  allowed 
coarseness  of  the  resolution.  If  resolution  finer  than 

5- cm  is  requested,  the  code  will  compute  answers,  but 

they  may  have  little  or  no  physical  reality.) 

(b)  band-model  parameters  for  each  interval  within  a  band 
(even  though  bands  may  overlap),  and  the  bands  are  ordered 
as  in  the  Wavelength  Bands  Dataset-BN  (No.  114). 

=. FALSE.,  TRANSB  provides: 

(a)  band-model  parameters  at  a  (below-defined)  resolution 
that  may  be  finer  than  the  requested  spectral  intervals. 

In  this  case  the  TRANSB-generated  resolution  (or  subinter¬ 
val)  is  0.5  of  the  narrowest  user-specified  wavenumber 
interval,  but  within  the  range  of  5  to  50  cm  ■  The  lower 
edge  of  the  first  output  interval  lies  at  the  lowc*'  edge  of 
the  lowest  wavenumber  spectral  interval. 

(b)  non-redundant  information  for  intervals  in  overlapping 
bands.  (If  bands  don't  overlap,  there  is  nothing  to  elim¬ 
inate,  of  course.) 

Note;  For  additional  information  regarding  use  of  these 
band-model  parameters,  sef  comments  under  FAST  in  Table 

6- 10  for  Subroutine  TRANS. 


( conti nued) 


216 


Table  7-8.  Input  and  output  variables  for  Subroutine  TRANSB  (Cont'd). 


XYZCOM  Conmon 
ITMTE  - 
LTMTE  - 
"Dataset-BN" 


VILO  m ,  - 

WHl  BN 

TFLAG  BN  - 


Input  Binary 
TAPIN  - 

WSL ,  - 

WSH 


For  1=1,10;  N  = 
SOD  (I  ,N) ,  - 
DEI  (1  ,N) 


Auxiliary  input  data  file  number  (=2  in  Program  DRYUPW). 
Auxiliary  output  data  file  number  (=3  in  Program  DRVUPW). 


Note:  The  spelling  (BN)  is  an  unfortunate  artifact  from 
the  original  development  of  the  routine  by  L.  Ewing  of  G.E. 
Tempo.  We  are  really  dealing  with  Words-3,  -4,  and  -6  of 
the  GRC  dictionary  Dataset-BI  (No.  115)  and  not  Dataset-BN 
(No.  114). 

Lowest  and  highest  wavenumbers  of  spectral  interval jover 
which  band-model  parameters  are  to  be  averaged  (cm  M 

Flag  to  denote  whether  the  wavelength  or  wavenumber  (cor¬ 
responding  to  the  argument  of  TFLAG  BN)  is  associated  with 
the  first,  intermediate,  or  last  spectral  division  in  a 
band  of  (ascending)  wavelengths  or  (ascending)  wavenumbers. 
=1.0,  First  spectral  division  (lowest  wavelength)  in  a 
wavelength  band  or  last  spectral  division  (highest 
wavenumber)  in  a  wavenumber  band. 

=0.0,  Intermediate  spectral  division. 

=2.0,  Last  spectral  division  (highest  wavelength)  in  a 
wavelength  band  or  first  spectral  division  (lowest 
wavenumber)  in  a  wavenumber  band. 


ile 

Equivjlenced  to  ITKTE.  Contains  band-model  parameters  for 
5-cm  1  resolution. 

Lower  and  higher  wavesumber  of  5-cm  *  interval  for  the  sets 
1997.5(5.0)4997.5  cm"1  and  2002.5(5.0)5002.5  cm"1,  respec¬ 
tively.  (cm  i 


=  1,10 

Mean  absorption  coefficient  and  inverse  of  mean  line-spacing 
parameter  (or  the  effective  line  density)  for  species-N  at 
temperature- index-1  for, the  wavenumber  interval  (WSL,  WSH). 
(I/cm  at  STP,  lines/cm"1) 


( continued) 


Table  7-8.  Input  and  output  variables  for  Subroutine  TRANSB  (Cont'd). 


OUTPUT  VARIABLES 


Output  Binary  File 


TAP0T  -  Equivalenced  to  LTMTE.,  Contains  band-model  parameters, 
derived  from  the  5-cm  resolution  data,  for  tne  user- 
specified  interval  DW  either  (a)  communicated  through  the 
Oataset-Bl  if  TRNSQPT=.TRUE .  or  (b)  set  by  an  algorithm  if 
TRNS3PT=. FALSE . .  The  algorithm  is  that  DM  equals  0.5  of 
the  minimum  DW  communicated  through  the  Dataset-BI,  but  not 
less  than  5.0  or  more  than  50  cm 

WL,  -  Lower  and  higher  wavenumbers  of  interval  DW .  (cm  *) 


S(I  ,N), 
DE  1 1  ,M  1 


Mean  absorption  coefficient  and  inverse  of  mean  line¬ 
spacing  parameter  (or  the  effective  line  density)  for 
species-N  at  temperature-index-I  for  the  wavenumber  in¬ 
terval  DW.  (1/cm  at  STP,  lines/cm  J) 


Note:  In  Volume  31,  L.  Ewing  briefly  comments  (on  p.  74)  on  the  algo¬ 
rithm^  Subroutine  TRANSB  for  using  the  band-model  parameters  for  the 
5-cm  resolution  (WSL,  WSH)  to  obtain  the  band-model  parameters  for  the 
output  spectral  interval  (WL,  WH),  regardless  of  TRNSOPT  being  TRUE  or 
FALSE.  The  description  is  not  fully  satisfying  since  the  evidence  is  not 
given.  In  any  event,  we  record  here  the  formulas  used  in  TRANSB: 

DE(  lines/cm  M  =-  DE  ( I ,  N )  as  output  from  Subroutine  TRANSB 
^  DEI ( 1 ,N )  as  input  to  Subroutine  TRANS 
-  inverse  of  mean  line-spacing  parameter  for 
species-N  at  temperature- i ndex- 1 ,  or  the  effec¬ 
tive  line  density  for  the  interval 


S ( cm' 1  at  STP) 


r 

i 

! 


DW  :  (WL,  WH)  in  TRANSB 
-  (WTL ,  WTH )  in  TRANS. 


S(I,N)  as  output  from  Subroutine  TRANSB 
S0D(I,N)  as  input  to  Subroutine  IP.ANS 
mean  absorption  coefficient  for  species-N 
temperature- index- I  for  the  interval 


at 


( conti nued) 
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Table  7-8.  Input  and  output  variables  for  Subroutine  TRAKiSB  (Cont'd). 


DW  =  (WL,  WH)  in  TRANSB 
£  ( WTL ,  WTH)  in  TRANS. 


where: 


kj 


4j 


£  S00(I,N)  [not  same  as  input  to  TRANS] 

=  mean  absorption  coefficient  foy  species-N  at  tem¬ 
perature-index-1  for  tlie  5-cin  1  interval  (WSL, 

WSH ! .  (cm'1  at  STP ) 

=  DEI(I,N)  [not  same  as  input  to  TRANS] 

=  inverse  of  mean  line- spacing  parameter,  or  the 
effective  line  density  for  the  5-crn  interval 
(WSL,  WSH) .  (lines/cm-1) 

=  FRAC(WL,  WH,  WSL,  WSH) 


=  fraction  of 


by  the  (5 


of  the  user  interval  OW  =  (WL,  WH)  covered 
-cm  )  basic  tape  interval  (WSL,  WSH). 


I  VI 


j=l 


It  is  easily  shown  that,  in  the  special  case  of  uniform  line  spacing 
over  J  intervals,  Ewing's  formulas  give  the  expected  results: 


DE 


1 


F  jl, 

4  t  1  ° 


j  =  l 


^  £kj  £  ki 


s  * 


j=l 


j=i 


j=i 
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The  purpose  of  Subroutine  SHELLS  is  briefly  described  in  Table  7-3a  and 
very  briefly  in  Volume  31  (p.  68).  Our  summary  of  its  input  and  output 
variables  is  given  in  Table  7-9.  In  our  version  of  Subroutine  SHELLS  we  have 
added  statements  (a)  to  print  a  table  of  all  the  atmospheric  properties  com¬ 
puted  at  the  shell  boundaries  and  (b)  to  compute  and  print  the  water  content 
of  the  atmosphere  along  a  vertical  path  above  each  of  the  shell  boundaries. 
The  water  content  is  expressed  in  units  of  precipitable  centimeters.  This 
computation  was  added  to  facilitate  comparisons  with  other  workers. 

Table  7-9.  Input  and  output  variables  for  Subroutine  SHELLS. 


INPUT  VARIABLES 

ATMOUP  Comion 

2 

PP  -  Pressure,  (dyne/cm  ) 

TT  -  Temperature,  (deg  K) 

SNI(I)  -  Density  of  species-I.  (cm  3) 


Particular  species 

are  indicated 

as  follows: 

N 

1=1  MAP (N )  SNI(I)  Set 

by  Subroutine 

1 

8 

NO, 

SPCMIN 

2 

11 

NO 

10N0SU 

3 

21 

NpO 

NO? 

SPCMIN 

4 

15 

SPCMIN 

5 

14 

°d2 

SPCMIN 

6 

6 

ATMOSU 

7 

20 

or 

SPCMIN 

8 

22 

CH, 

SPCMIN 

9 

16 

H?0 

OR 

SPCMIN 

10 

18 

SPCMIN 

XYZCQM  Cornnon 

FACT  -  Parameter  controlling  the  number  of  altitude  boundaries  and 
their  spacing.  Nominal  value  is  1.0,  but  a  reasonable 
range  is  between  0.1  and  10.0  (per  L.  Ewing).  The  original 
algorithm  provided  by  G.E.  Tempo  allowed  a  maximum  of  81 

(continued) 
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Table  7-9.  Input  and  output  variables  for  Subroutine  SHELlS  (Cont'dl. 


boundaries,  but  a  revision  by  GRC  reduced  this  number  to  61 
and  also  altered  the  spacings.  We  have  adopted  the  GRC 
revision.  In  the  comnents  of  our  listing  of  SHELLS,  we 
have  given  the  boundary  altitudes  per  GET  algorithm  for 
FACT=1.0  and  per  GRC  algorithm  for  FACT =0.1,  1.0,  and  10.0. 
Here,  we  record  the  results  for  GRC's  FACT=1.Q  (Xn=1.25, 
X^.125,  X2=7. 81251.  u 


J 

HS 

J 

HS 

J 

HS 

— 

— 

— 

1 

0. 

10  a 

13.125 

I8b 

42.8125 

2 

1.25 

11 

16.250 

19 

50.6250 

3 

2.50 

12 

19.375 

20 

58.4375 

4 

3.75 

13 

22.500 

21 

66.2500 

5 

5.00 

14 

25.625 

22 

74.0625 

6 

6.25 

15 

28.750 

23 

81.8750 

7 

7.50 

16 

31.875 

24 

89.6875 

8 

9 

8.75 

10.00 

17 

35.000 

25 

97 . 5000 

aJCHNG  1  b,lCHNG2 


OUTPUT  VARIABLES 
XYZCOM  Common 

NS  -  dumber  of  altitude  boundaries 
For  J=1,NS ;  N=l,10 

HSHELL(J),  -  Altitude,  temperature,  pressure,  and  species-N  density  at 
TS(J),  altitude-boundary  J.3 
PS (J  ) ,  (cm,  deg  K,  atm,  cm  ) 

XNSPEC(J,N) 


7-4  INTEGRATION  OF  NBR  MODULE  INTO  ROSCOE-IR 

7-4.1  General 

Table  7-10  provides  a  guide  to  the  integration  of  the  NBR -Module 
routines  into  ROSCOE-IR.  For  these  routines,  we  now  mention  some  of  the 
differences  between  the  routine  in  the  stand-alone  version  of  the  NBR  Module 
and  the  routine  in  ROSCOE-IR. 
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Table  7-10. 


Guide  to  integration  of  NBR  Module  into  ROSCOE-IR. 


N8R- 

-Module  routine15 

Program  in 

ROSCOE-IR 

Name 

Purpose  of  call 

cal'!  ing  NBR 

-Module  routine 

01N1TL  . 

b 

ROSMAIN ,c 

Overlay  (0,0) 

ATMOSU0 

e 

ATKGEN, 

Overlay  (3,1) 

CLOUDQ 

f 

ATKGEN, 

Overlay  (3,1) 

TRANSB 

3 

AT  E  GEN , 

Overlay  (3,1) 

SHELLS 

h 

AT  K  GEN, 

Overlay  (3,1) 

SETALT 

i 

QL00K, 

Overlay  (3,25) 

UPWELL 

j 

0L00K, 

Overlay  (3,25) 

UPWELT 

k 

EMISCAT, 

Overlay  (3,31) 

^ach  of  these  routines  (except  UPWELT  which  is  not  in  the  stand-alone  version 
of  the  Nbk  Module)  is  called  by  the  driver.  Program  DRVUPW. 

bTo  initialize  the  OSA  routines. 

CStrictly ,  Subroutine  QIMITU  is  called  by  Subroutine  ROSCOt  which  is  called  by 
Program  ROSMAIN . 

dKnown  as  ATMOS  in  ROSCOE-IR. 

eTo  initialize  atmospheric  routines  depending  on  location  and  time. 

*To  initialize  statistical -cloud  submodel  properties. 

9To  prepare,  from  the  basic  5-cm  *  resolution  band-model  parameters  file, 
band-model  parameters  for  prescribed  spectral  resolution. 

hTo  establish  atmospheric  grid  for  h  slOG  i<m, 

'To  determine  the  altitudes  (depending  on  wavelength  of  interest)  at  which 
Subroutine  UPWELL  is  to  compute  the  upwelling  natural  background  radiation. 

^To  compute,  for  a  Point  V  at  each  of  a  set  of  NALT  altitudes  above  a  given 
geographic  position,  characterized  by  ‘'aterial  MSM  and  Property  DD(MSM),  the 
natural  upwelling  spectral  radiance  directed  toward  Point  V  from  Points  P  on 
Earth's  surface  with  respect  to  Point  V  at  MNADIl  representative  nadir  angles 
and  NAZI  representati ve  azimuth  angles. 

k 

To  interpolate  the  upwelling  radiation  array  UPRADN ( I  ,M ,L )  in  altitude  (I) 
and  select  the  appropriate  band- interval  (M)  in  broad-band  (L).  For 
altitudes  ZKM  >_  12  km,  UPRADM  is  not  the  cloud-free  result  but  the  50- 
percentile  of  the  radiance  distribution  function  for  statistical  clouds  (if 
included  in  the  problem). 
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Our  QIN1TL  was  prepared  by  G.E.  Tempo  and,  while  different  from 
GRC's,  is  said  to  be  equivalent  for  the  present  purposes. 

Our  ATMQSU,  documented  in  Volume  14a- 1,  does  not  contain  the  DSA 
System  as  does  the  GRC  version. 

GRC's  CLOUDO,  more  restricted  than  SAl's  documented  in  Volume  24, 
initializes  only  statistical  (as  opposed  to  deterministic)  cloud  data.  How¬ 
ever,  with  respect  to  the  NBR  Module  which  contains  only  statistical  clouds, 
the  two  versions  are  presumably  equivalent  (except  for  GRC's  OSAl,  although 
the  details  have  not  been  verified. 

Subroutine  TRANS3  contains  the  DSA  System  in  both  versions  and  should 
be  the  same  in  both  versions  except  for  one  small  difference.  The  logical 
variable  TRNS0PT  enters  through  Common  OPTION  in  the  SAI  version  whereas  in 
the  GRC  version  TRNSOPT  is  set  to  Word-27  (FAST  or  GOOD)  in  the  Basic 
Oataset-30  (No.  9). 

Our  Subroutine  SHELLS  is  the  same  as  the  GRC  version  in  all  essential 
aspects.  (See  Section  7-3. 3. 3  for  small  differences.) 

Subroutine  SETALT  should  be  the  same  in  both  versions. 

Subroutine  UPWELL,  written  in  terms  of  the  DSA  System  in  both  ver¬ 
sions,  should  be  essentially  the  same.,  SAI's  version  contains  many  print 
statements  properly  deleted  in  the  GRC  version.  The  comment  regarding  TRNSOPT 
in  Subroutine  TRANSB  applies  here,  too. 

Subroutine  UPWELT,  not  in  the  stand-alone  version  of  the  U3R  Module, 
is  discussed  in  Section  7-4.2, 

7-4.2  Subroutine  UPWELT 

Subroutine  UPWELT  was  prepared  by  GRC  to  select  the  appropriate  wave¬ 
number  interval  and  to  interpolate  in  altitude  the  upwelling  natural  radiation 
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array,  UPRAQNU.K.JBANO).  For  altitudes  ZKM  >  12  km,  UPRADN  is  not  the  cloud- 
free  result  but  the  50-percentile  of  the  radiance  distribution  function  for 
statistical  clouds  (if  included  in  the  problem).  Table  7-11  gives  the  input 
and  output  variables  for  Subroutine  UPWELT. 
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Table  7-11.  Input  and  output  variables  for  Subroutine  UPWELT. 


INPUT  VARIABLES 

Argument  list 

HCM  -  Altitude  at  \4iich  upwelling  spectral  radiance  is  desired  in 
Program  EMISCAT .  (cm) 

WL,  -  Lower  and  higher  limits  of  wavenumber  interval  for  which 

WH  upwelling  spectral  radiance  isdesired  (set  in  Prog~am 
EMISCAT  from  Dataset-B! ) .  (cm 

UPWELS  Carman 

For  I=1,NALTJ;  L=1,NWAVEJ;  M=1,NBANDS 
NALT(M)  -  Number  of  altitudes  ZKM(I,M)  at  which  upwelling  spectral 
radiance  has  been  computed  for  (broad)  wavelength-band 
index  M.  Defines  NALTJ. 

ZKM(I,M)  -  Altitudes  of  Point  V  above  UPWALT  at  which  upwelling  radi¬ 
ance  is  computed,  (km) 

NWAVE(M)  -  Number  of  wavenumbers  at  which  the  upwel’ing  spectral  radi¬ 
ance  has  been  computed  for  (broad)  wavelength-band  index  M. 
Defines  NWAVEJ. 

UPSADN  (I ,L,M)  -  The  nadir- averaged  value  of  UPRAOA ( I  ,J ,L ) .  See  Table  6-2 

for  Subroutine  UPWELL.  In  the  GRC  version,  for  altitudes 
ZKM  >  12  km  and  if  clouds  are  included,  UPRACN  is  not  the 
cloud-free  result  but  the  50-percentile  of  the  radiance 
distribution  function  for  statistiral  clouds. 

[W/(cmc  sr  cm"1)] 

WV(l,M)  -  The  array  of  central  wavenumuers  corresponding  to  (broad) 
wavelength-band  index  M.  Set  in  Program  0L00K  from 
Dataset-EI.  (cm"1) 

NBANDS  -  Number  of  (broad)  wavelength  bands. 

OUTPUT  VARIABLES 
Argument  1 i st 

-  The  value  of  the  upwelling  natural  radiation  for  the  wave- 
number  interval  (Wl.WH),  averaged  over  the  downward  hemis¬ 
phere  and  logarithmically  interpolated  from  the  array 
UPRAON  for  the  input  altitude  HCM.  LPhotons/1 cur  sec  sr 
cm  Mj 
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SECTION  8 


LISTING  OF  SELECTED  ROUTINES 


In  this  section  we  provide  a  FORTRAN  listing  o:  those  routines  in  the 
NBR  Module  which  have  not  been  published  elsewhere  (or  at  least  rot  in  the 
form  in  which  they  are  used  in  the  N3R  Module).  An  index  to  such  routines,  as 
well  as  their  originator,  is  given  in  Table  8-1.  Table  7-3a  tells  where  list¬ 
ing  of  the  other  routines  have  been  published. 

Table  8-1.  Index  to  routines  with  FORTRAN  listing  in  Volume  27. 


Routine 

Origi natord 

Page 

Routi  ne 

.  .  .  A  d 

Originator 

Page 

DRVUPW 

SAI 

227 

AINOUT 

SAI 

268 

ACCOM 

GET 

237 

SEGMENT 

GET 

271 

AEROSOL 

VI 

233 

setalt 

SAI 

275 

AGAGEO 

SAI 

243 

SHELLS 

GET 

277 

ATMRAQ 

GET 

244 

SOLRAD 

SAI 

280 

CANGLE 

SAI 

249 

SORTLJ 

SAI 

281 

DOT 

GET 

249 

STEP 

GET 

282 

ERF 

SAI 

249 

STEPS 

GET 

284 

ESURF 

SAI 

250 

SUBVEC 

GET 

284 

FRAC 

GEi 

254 

SURRAO 

SAI 

285 

FRESNL 

SAI 

255 

TAN  GEO 

SAI 

295 

GCRCLE 

SAI 

257 

TRANS 

GET 

296 

GEO RE A 

SAI 

258 

TRANSB 

GET 

303 

GEOTAN 

SAI 

258 

TRNSCO 

GET 

303 

GEO  Y  U 

SAI 

259 

•JNITV 

GET 

312 

GLITTR 

SAI 

250 

UPWELL 

SAI 

312 

PATH 

GET 

265 

VEIN 

GET 

333 

PLANCK 

GET 

267 

XMIT 

GET 

333 

REFTAN 

SAI 

267 

aSAI  consents  inserted  in  routines  developed  elsewhere  are  denoted  by  CLJ  in 
the  first  three  columns. 
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PROSW*  DRVUPW  (!NPL'T, OUTPUT, TAPE5*:nout,7APE6=OUTPL’T, TAPED, TAPE3.  pRVUBW 


1  TAPES'  oovjrw 

CC  PPV'S* 

CC  T'-IS  ROUTINE  'S  PROVIDED  T0  DRIVE  AND  TESt  S'laaT  tINE  UPWtlL  AND  DRV'JPy 

CC  TNf  p ELATED  ROUTINES  N«IC“  COMPRISE  the  na’JPAL  BACKGROUND  poyjPy 

CC  RADIATION  *IDEL  FOR  THE  UNDISrL*>SED  ATNC'PHERE ,  INCLUDING  A  ORV'JPy 

CC  STATISTICAL  TREA'«ENT  OF  NATURAL  0  ODDS.  DRVUPw 

CC  ORVijPy 

cc  *-**  historical  statenent  ORV'jpy 

CC  8E CAUSE  NE  HERE  GIVEN  (S/1/78!  A  MOLECULAR  TRANSMITTANCE  0»YU»W 


CC  MODULE  ST  G.E.  TEMPO  THAT  MAO  SEVERAL  ROUTINES  (DRIVER  PROGRAM  ORyjOy 
CC  ATMOST  AND  SUBROUTINES  Att«AP,  TRAN  SB,  AND  TRSSCO!  WITTEN  IN  DRV'JPy 
CC  TERMS  OF  THE  &RC  DSA  SYSTEM,  yr  PREPARED  ’WC  VERSIONS  OF  THE  ORV'JPy 
CC  NATURAL  BACKGROUND  RADIATION  (N SRI  MODULE.  ONE  VERSION,  WIC"  O'VJPy 
CC  HE  REGARDED  AS  THE  BASIC  VERSION,  USED  DSA  IN  THE  SAI  DRIVER  ORV'JPy 


CC  PROGRAM  DRVUPW,  SUBROUTINE  L'PHFLL,  AND  THE  ABOVE-NA*£p  GET  ORV'JPy 

CC  SUBROUTINES.  THE  OTHER  VERSION  DID  NO’  USE  DSA.  BOTH  ORV'JPy 

CC  VERSIONS  HER"  "ESTED  ON  SEVERAL  PROBLEMS  AND  GAVE  THE  SAME  ORV'JPy 

CC  ANSWERS.  ORV'JPy 

CC  (HI  STORK  ALLY,  HE  FIRST  PREPARED  THE  DSA  VERSION  AND  THEN  DRVUPW 

CC  DEVELOPED  THE  NON-DSA  VERSION  BV  USING  A  SET  OF  ABOUT  235  LCyj» 

CC  CORRECTION  CARDS  (DO  ACTION  CARDS  AND  ABOUT  145  COMMENT  DRVJPW 

CC  CARDS).  THEN,  THE  NON. DSA  VERSION  WAS  AVAILABLE  FRO“  A  ORVlAW 

CC  PROGRAM  LlBRPpT  (IN  THE  CONTEXT  OF  THE  COC  U»OATE  UTILITY  DRV'JPH 

CC  PROGRAM!  tH3  THE  DSA  VERSION  WAS  OBTAINED  BV  USING  THE  *VANK  DRVUPW 

CC  UPDATE  DIRECTIVE  TO  DELETE  THE  NON-CSA  CORRECTION  5ET.I  DRVJPW 

CC  WE  EFFECTED  THE  REMOVAL  of  The  OSA-USASE  by  A  NON-STANDARD  DRVJPW 

CC  METHOD  WHICH  RETAINED  AS  MUCH  OF  ThE  OSA  CODING  AS  POSSI5LE  DRVJPW 

CC  BUT  W!>:  NEW  MEANINGS  TO  MANY  of  the  DSA  VARIABLES.  THE  DSA  tRVjPW 

CC  STATEMENTS  THAT  COULD  NCT  BE  USED  WERE  COMMEs’ED  (C-DSA'  AND  DRV'PW 

CC  FOLLOWED  WITH  TH£  NECESSARY  REPLACEMENT  StAt;'-'ENTS.  DRYU»W 

CC  (THIS  PROCEDURE  WAS  FEASIBLE  FOR  US  BECAUSE  ONLY  Two  C--»T ASETS  ORV'JPy 

CC  WERE  INVOLVED.  IT  may  NOT  8f  FEASIBLE  FOR  A  CASE  WlT''  MAN’  OCVjP'y 

CC  DATASETS.!  DRVJP'. 

CC  DRVUPW 

CC  IN  JANUARY  U80,  DURING  f  REVIEW  OF  T-*E  INCORPORATION  OF  THE  OR'vjOy 

CC  NBR  MODULE  INTO  P.OSCOE,  NLP’EROl'S  ERRORS  WEPE  DISCOVERED,  SOME  CBVJRW 

CC  OF  WHICH  WERE  COMPOUNDED  OWING  TO  THE  FACT  THAT  THE  DATASETS  DRV.'Pw 

CC  USED  IN  -HE  GET  ROUTINES  WERE  INCONSIS’EN"  WITH  The  GSC  DRVJ“W 

CC  DICTIONARY  CATASETS.  THE  NON-$Tt.NDlP"  DA’ASETS  HAVE  NOW  BEEN  DPV'.'Pw 

CC  REPLACED  BY  the  STANDARD  DATASfTS  ! ETCEP’  IN  SUBROUTINE  DRV'J=W 

CC  TRAN  SB ! .  AN  EXTENSIVE  REVISION  OF  THE  (STAND-ALONE'-  NBR  D»VJ=y 

CC  MODULE  WAS  REQUIRED  TO  BRING  IT  INTO  A  CLOSE  CORRESPONDENCE  EVVJPW 

CC  WITH  THE  CORRECTED  'VERSION  IN  THE  ROSCOE  CODE.  CONSEQUENTLY,  DRVJPW 

CC  IN  THIS  final  VERSION  OF  ■''HE  NBR  MODULE,  WE  DO  EMPLOY  The  &RC  DRVJPW 

CC  OSA  SYSTEM  (BO"  IN  A  GEt  VERSION  AND  NOT  IN  THE  GPC  VERSION'  DRV'jP'W 

CC  WERE  APPROPRIATE.  WF  DO  NOT  PROVIDE  A  NON-OSA  VERSION.  DRV'.'=w 

CC  DRV  "Pw 

C'MtQN  ON  ARE  6,  OMARe  A(  10! .  OFREHD.  OND"ST,  QNLNKS,  OZSIZE,  DRV'JPy 

1  QN7SLK ,  OJHtAD,  OC hunt  30'.,  QOSIZEdO',  QNS1ZE,  OLUNIT'IO',  ORV'JPy 

2  QtRLJN,  OFBITS(?,10',  Oil'  DRVL">W 

INTEGER  QNAREA,  QWA»EA,  QFPEHQ,  QNDTST,  QN;  NKS,  OZSIZE,  QN3E.L< ,  DtVJPy 

1  QZhfao,  OCDunt,  OOSIZE.  OMOOla,  QNS1ZE,  OHM',  OFIELD.  DRVJP. 

?  QERUJN,  OFBITS,  OCRSIZ  DR',".'5'. 

CCHWON  /  TIME  /  ITR S ,  IM0NS,  IDA’S,  2T,  PLAT,  pi_ON,  LIT,  GAT,  FYR,  DR; JR, 

1  FST,  RHQS»“,  JHI  DRV'JPy 

co*n>N  /  vbc  t  wvflag,  methou  nev.-p. 


A 

c 

0 

ii 
1  *> 

i$ 

J  c. 
16 

1  c 
29 
?? 
?; 
?? 
?3 
?4 

■yi 

3'" 

31 

?? 

y& 

35 

y 

3? 

39 

i'i 

fl? 

44 

49 

47 

4a 

4Q 

£2 

5; 

5? 

£4 

tt. 

66 
c - 

s? 


COMMON  /  ZHTENP  /  XX(63),  TPFLAG 

COW»  /  XT2C0M  /  ITMTE,  LTXTT,  NS.  H$»aU8U,  TS(81),  PS'8l>, 

1  XNSP-C{81,10),  U(10 ,10,2  ),  UP(10.10,2).  N*OLS, 

2  FACT 
COAN40N  /  OPTION  /  TftNSOPT 

ccmm  /  optini  /  rkjsw 

CCJAfCN  /  XT  /  TT{101 

COMMON/ AEROK  '  KYIS,  KPTVPE 

COMNON/PARANS/  INF1L ,  10F IL  , P I  ,ERAD,t)GTOR  ,RTOD6 

Om»/UPN£LS/  L’PWAL  T  .UM/LON ,  Uft/tAT ,  NAi.  T  f  5 ) ,  ZXMfl  3 , 5 1 ,  NNAD I R , 

*  NAZI ,  NWAVE (51 ,10ATV,CL0f IS, UPR  ADA (13,10,5 ) , 

*  OTil0,5) ,IKN,NBANDS 
COMKIN/UPWaSl/ 

2  R01(K6,10),R010A(6,10,10),R010N(6,10}, 

3  ROZSte.lOl.ROPSAlf.lO.lO.ROZSNfe.lO), 

A  R050(6,10) ,R050A(6,10,10) ,R050N(6,10 j , 

5  R090(6,10),R090A!6.ia,10),R090N(6,10>, 

6  R100(6.10).RIOOA{6,10,10!,RIOON(6.10) 

7  ,  ARC VA(6 ,10,10 !, ARC VK(6 ,10) 
COWONA)PwnS37  UPR  AD(  6,10 )  ,UPR  ADA!  13,10,10) 

II-NAITJ,  JJ-NNA01R,  RK-NA21,  Ll’-'WAVEJ.  NN*NBAKDS 
UPRAD(AK.U),  UPRADAf II , JJ.LL ),  UPRADNf  II  ,LL,NN) 

DIMENSION  QXXX'2000) 

EQUIVALENCE  (  0.  OXXX  ) 

DIMENSION  DD(7) ,WW( 10),DW( 10) , ALAM( 10) ,GLAM( 10) 

DIMENSION  8NL0  8N(1),  BNNI  8*<1).  WIO  BN(1),  WHI  BN(1), 

*  LINRV  BN(1) 

EQUIVALENCE  (  Q{1),  BNLO  BN  ),  (  Q<2),  BNNI  BN  ). 

*  (  Q(3).  WLO  8N  ),  <  0(A),  WHI  BN  ), 

*  (  0(5).  LINRV  BN  ) 

DIMENSION  BNLO  81(1),  BNHI  BI(1),  WLO  31(1),  NHI  Bill), 

-  bkgno  bi(1),  telag  8t(i),  trans  e;;d,  iosbx  bi(1) 

EQUIVALENCE  (  0(1).  BNLO  BI  ),  (  0(2).  BNHI  BI  ), 

*  (  0(3).  WLO  BI  ),  (  Q(A).  WHI  BI  ). 

*  !  Q(5),  K6N0  B!  ).  (  Q(6).  TELAG  “I  ), 

*  !  0(7),  TRANS  B!  ),  (  0(8),  IOSBX  BI  ) 


LOGICAL  SPCUIR 
LOGICAL  RADSW,  TRN50PT 

data  n  /  200..  mo.,  soo..  750.,  1000..  150 
♦  5000..  7000.  / 

DATA  PI  7  3.14159265  / 

DATA  00  /  0.10,  10..  0.50,  0.,  0.,  0.,  0.5  / 


1500.,  2000.,  3000., 


FILE  NAMES 

*  TAPE2  AND  TAPE3  ARE  IDENTIFIED  IN  PROG RAM  ORVUPW'  WITH  1TMTE 
AND  ITMTE,  RESPECTIVELY. 

ITMIE  (ALIAS  TAP1N)  AND  LTNTE  (ALIAS  TATT)  ARE  REAP  AND 
WRITTEN,  RESPECTIVELY,  BY  SUBROUTINE  TRAMSB. 

*  TAPES  IS  WRITTEN  BY  SUBROUTINE  UPWEIL  AND  READ  BY  PROGRAM 
DRVUPW, 

READ  Oft  OTHERWISE  SET  THE  FOLLOWING  PARAMETERS... 

PARAMETER  IN  COtWN  DEFINED  IN  READ/SFT  COWENT 

KVIS  AEROK  SUB.  AEROSCv  R 

KPTYPE  AERO*  SUB.  AEROSOL  R 


ORVJPW 

59 

DRVUPW 

6C 

ORVLIPW 

6! 

ORVJPW 

62 

DRVUPW 

63 

ORV'JPW 

6« 

ORV'JPW 

65 

DRVUPW 

66 

DRVUPW 

67 

DRVUPW 

68 

ORVJPW 

69 

DRVUPW 

70 

DRVUPW 

71 

DRVUPW 

72 

ORVUPW 

73 

DRVUPW 

1  H 

DRVU°W 

75 

ORVUPW 

76 

ORVUPW 

77 

DRVUPW 

’8 

ORVUPW 

79 

DRVUPW 

80 

ORVUPW 

81 

DRVUPW 

82 

ORVUPW 

83 

ORVUPW 

84 

DRVUPW 

95 

DRVUPW 

86 

ORVUPW 

87 

DRVUPW 

88 

DRVUPW 

89 

DRVUPW 

90 

ORVUPW 

91 

ORVUPW 

92 

ORVUPW 

93 

DRVUPW 

94 

DRVUPW 

95 

ORV’JPW 

96 

ORVUPW 

97 

DRVUPW 

98 

ORVJPW 

99 

DRVUPW 

I  DO 

rpvypw 

10! 

DRVUPW 

10? 

DRVUPW 

103 

ORVUPW 

104 

ORVJPW 

105 

DRVUPW 

106 

DRVUPW 

107 

DRVUPW 

109 

ORVJPW 

109 

ORVUPW 

no 

DRVUPW 

in 

DRVUPW 

112 

ORVJPW 

113 

ORVUPW 

114 

DRVUPW 

115 

220 


cc 

RAOSW 

0PTIN1 

SUB.  UPWELL 

R 

DRVUPW 

116 

cc 

DRVUPW 

117 

cc 

TRNSOPT 

OPTION 

SUB.  TRANS 

R 

I 

DRVUPW 

118 

cc 

DRVUPW 

HR 

cc 

INF  I L 

PAR AMS 

S 

81 

ORVUPW 

120 

cc 

iofil 

PAR  AMS 

S 

B? 

DRVUPW 

121 

cc 

PI 

PAR  AMS 

s 

ORVUPW 

122 

cc 

ERAD 

PAR AMS 

s 

C 

DRVUPW 

123 

cc 

DGTOR 

PAR  AMS 

s 

01 

DRCJPW 

12a 

cc 

RTODG 

PAR AMS 

s 

D? 

DRVUPW 

125 

cc 

DRVUPW 

126 

cc 

IYRS 

TIME 

DRVATM 

R 

E 

DRVUPW 

127 

cc 

IMONS 

TIME 

DRV  ATM 

R 

E 

DRVUPW 

128 

cc 

IOAYS 

TIME 

ORVATM 

R 

E 

DRVUPW 

129 

cc 

ZT 

TIME 

DRVATM 

R 

E 

DRVUPW 

130 

cc 

PIAT 

TIME 

SUB.  SOLZEN 

s 

DRVUPW 

131 

cc 

PLON 

TIME 

SUB.  SOLZEN 

s 

DRVUPW 

132 

cc 

SCO 

. — 

DRVATM 

R 

E.F1 

DRVUPW 

133 

cc 

GLO 

— 

ORVATM 

R 

E.F? 

DRVUPW 

134 

cc 

ORVUPW 

135 

cc 

UPWALT 

UPWELS 

SUB.  UPWELL 

s 

DRVUPW 

136 

cc 

UPMLON 

UPWELS 

SUB.  UPWELL 

s 

DRVUPW 

137 

cc 

upwlat 

UPWELS 

SUB.  UPWELL 

s 

DRVUPW 

138 

cc 

N  NADIR 

UPVELS 

SUB.  UPWELL 

R 

DRVUPW 

139 

cc 

NAZI 

UPWELS 

SUB.  UPWELL 

R 

DRVUPW 

1A0 

cc 

NWAVE (5) 

UPWELS 

SUB.  UPWELL 

s 

DRVUPW 

HI 

cc 

CLDFLG 

UPWELS 

SUB.  UPWELL 

R 

DRVUPW 

H2 

cc 

MSM 

.. 

SUB.  UPWELL 

R 

DRVUPW 

143 

cc 

DO{MSM) 

— 

SUB.  UPWELL 

s 

G 

DRVUPW 

144 

cc 

SPCULR 

— 

SUB.  UPWELL 

R 

DRVUPW 

145 

cc 

DRVUPW 

146 

cc 

WVFlAG 

VPC 

DRVATM 

s 

E 

DRVUPW 

147 

cc 

METHOD 

VPC 

DRVATM 

s 

E 

DRVUPW 

148 

cc 

DRVUPW 

149 

cc 

TTf  I ) 

XY 

SUB.  TRANS 

s 

G 

DRVUPW 

150 

cc 

DRVUPW 

151 

cc 

ITMTE 

XYZCOM 

SUB.  TRAHSB 

s 

DRVUPW 

152 

cc 

LTMTE 

XYZCOM 

SUB.  TRANSB 

s 

DRVUPW 

153 

cc 

NMOLS 

XYZCOM 

SUB.  TRANS 

s 

DRVUPW 

154 

cc 

FACT 

XYZCOM 

SUB.  SHELLS 

R 

DRVUPW 

155 

-r 

DRVUPW 

156 

cc 

cc 

TPFLAG 

ZHTEMP 

DRVATM 

s 

E 

ORVUPW 

DRVUPW 

157 

158 

cc 

B1  INPUT  FILE  FOR  STATISTICAL  Cl.OUt 

MODEL 

DRVUPW 

159 

cc 

B2  OUTPUT  FILE  FOR 

ST ATI  STICAL  CLOUD  MODEL 

DRVUPW 

160 

cc 

C  EARTH 

RADIUS,  KM 

DRVUPW 

161 

cc 

01  DEGREES-TO-RADIANS 

DRVUPW 

162 

cc 

02  RADI  ANS-TO-OEGR  EES 

DRVUPW 

163 

cc 

E  PROGRAM  DRYATM  FOR  SUBROUTINES  ATMOSU, 

SPCMIN,  ETC. 

DRVUPW 

164 

cc 

n  USED 

TO  SET  PLAT 

DRVUPW 

165 

cc 

F2  USED 

TO  SET  PLON 

DRVUPW 

166 

cc 

G  SET  BT  DATA  STATEMENT 

DRVUPW 

167 

cc 

HI  IDEAL!  Y  BUT  NOT 

NECESSARILY  SET 

TO 

plat 

ORVUPW 

168 

cc 

H?  IDEALLY  BUT  NOT  NECESSARILY  SET 

TO 

PLON 

DRVUPW 

169 

cc 

I  ALSO 

SEE  SUBROUTINE  TR.ANSB 

DRVUPW 

170 

ccc 

DRVUPW 

171 

cc 

IN  THE  FOLLOWING  SEVEN 

STATEMENTS,  THE 

DSA  MEANINGS  ARE  ... 

DRVUPW 

172 

229 


r 


cc 

QNAREA 

= 

NUMBER  OF  STORAGE  AREAS. 

DRVUPW 

173 

cc 

0WAREA(11 

= 

NUMBER  OF  WORDS  OF  HIGH-SPEED  MEMORY  (SCM). 

DPVUPW 

174 

cc 

NOTE  THAT  THROUGH  THE  INITIALIZATION  PERFORMED  BY 

DRVUPW 

175 

cc 

SUBROUTINE  OINITL,  THE  MAY IMUw  NUMBER  OF  WORDS 

DRVUPW 

176 

cc 

AVAILABLE  IN  THE  O-ARRAY  IS  SET  equal  TO 

DRVUPW 

177 

cc 

QWAR EA ( 1 ] .  THUS  THE  LENGTH  OE  BLANK  COMMON 

DRVUPW 

178 

cc 

EQUALS  THE  SUM  OF  QWAREAd  )  AND  THE  NUMBER  (89) 

DRVUPW 

179 

cc 

OF  WORDS  REQUIRED  FOR  THE  BLANK-COMMON  VARIAEi.ES 

DRVUPW 

180 

cc 

OTHER  THAN  Q. 

DRVUPW 

181 

cc 

THE  MINIMUM  VALUE  REQUIRED  FOR  QWARFA(l)  MAY  BE 

DRVUPW 

182 

cc 

DETERMINED  BY  NOTING  THAT 

DRVUPW 

183 

cc 

(A)  THE  FIRST  TWO  WORDS  AND  THE  LAST  WORD  IN  THE 

DRVUPW 

184 

cc 

Q-ARRAY  ARE  USED  BY  THE  DSA  SYSTEM. 

DRVUPW 

185 

cc 

(B )  EACH  DATASET  HAS  A  ZEROTH  WORD. 

DRVUPW 

186 

cc 

(C)  THE  NUMBER  OF  WORDS  USED  BY  THE  Z-BLOCK 

ORVIJPW 

187 

cc 

DATASET  IS  HARDWIRED  TO  BE  101  (SUBROUTINE 

DRVUPW 

188 

cc 

QINITL  SETS  QZSI 2E  =  100 .  AND  A  ZEROTH  WORD  IS 

DRVUPW 

189 

cc 

REQUIRED) .  ONE  MAY  DETERMINE  THE  MINIMUM 

DRVLUW 

150 

cc 

SIZE  REQUIRED  FOR  THE  Z-BLOCK  By  NOTING  THAT 

DRVUPW 

191 

cc 

TWO  WORDS  (A  DATASET  POINTER  WORD  AND  A  LINK 

DRVUPW 

19? 

cc 

WORO)  ARE  REQUIRED  FOR  EACH  DATASET  AND  ALSO 

DRVUPW 

193 

cc 

ONE  LIST  HEADER  WORD  FOR  THE  DATASETS  ON  A 

DRVUPW 

194 

cc 

LIST. 

DRVUPW 

195 

cc 

IF  TWO  BANOS,  EACH  WITH  TWO  BAND  INTERVALS,  ARE 

DRVUPW 

196 

cc 

USED  FOR  A  SAMPLE  PROBLEM,  THEN  ONE  NEEDS 

DRVUPW 

197 

cc 

FOR  TWO  OATASETS-BN,  2*(5+l)«12 

DRVUPW 

198 

cc 

FOR  FOUR  DATASETS-B1,  4*(8+l)=36 

DRVUPW 

199 

cc 

FIRST  TWO  AND  LAST  WORDS  OF  Q,  =3 

DRVUPW 

200 

cc 

Z-BLOCK,  =16 

DRVUPW 

201 

cc 

ZEROTH  WORD.  1 

DRVUPW 

202 

cc 

DATASETS-bN,  1+7*2  >  5 

DRVUPW 

203 

cc 

DATASETS-B1,  ?* ( l  +  ?*2 )=  10 

DR  VLI PW 

204 

cc 

— 

DRVUPW 

205 

cc 

Z-BLOCK  TOTAL  =  16 

DRVUPW 

206 

nc 

DRVUPW 

207 

cc 

TOTAL  WORDS  =67 

DRVUPW 

208 

cc 

USE  OF  NEAR-MINIMUM  SIZES  FOR  THE  Z-BLOCK  AND  FOR 

DRVUPW 

209 

cc 

0WAREA(1 )  IS  HIGHLY  RECOMMENDED  WHEN  ONE  WANTS  TO 

DRVUPW 

210 

cc 

USE  PQUMF  TO  SEE  WHAT  IS  GOING  ON  IN  BLANK 

DRVUPW 

211 

cc 

COMMON . 

DRVUPW 

212 

cc 

QWAREA(2) 

« 

NUMBEP  OF  WORDS  OF  LOW-SPEED  MEMORY  (LCM1 , 

DRVUPW 

213 

cc 

Q0S1ZEI 

:n 

= 

NUMBER  Of  WORDS  IN  SMALLEST  DA7A5ET. 

DRVUPW 

214 

cc 

ODSIZEI 

;?i 

- 

AN  ASSIGNED  VALUE  OF  7ER0  IMPLIES  THAT  DATASETS 

DRVUPW 

215 

cc 

LARGER  THAN  THE  LAST  ASSIGNED  INCREMENT  WILL  BE 

DRVUPW 

216 

cc 

ALLOCATED  THE  EXACT  NUMBER  OF  WORDS  RE0U1RED. 

DRVUPW 

217 

cc 

QEPLU'i 

* 

LOGICAL  UNIT  NUMBER  OF  DEVICE  USED  FOR  SYSTEM 

DRVUPW 

218 

cc 

ERROR  MESSAGES. 

f)R  VUpW 

21Q 

cc 

QlNiTi 

THIS  SUBROUTINE  INITIALIZES  OTHER  SYSTEM 

DRVUPW 

220 

cc 

VARIABLES  AND  SETS  UP  THE  FREE  LIST. 

DRVUPW 

221 

rr 

DRVUPW 

222 

ON  AREA  =  2 

DR  VLIPW 

223 

QHAREAI1)  • 

2000 

DR.VtIPw 

224 

QWAREAt  2 )  * 

50000 

DRVUPW 

??s 

QDS1 ZF !  1 )  ■ 

5 

DRVUPW 

226 

QDS1 ZE ! 2 )  « 

0 

DRVUPW 

227 

QERLUN  =  6 

DRVUPW 

22R 

CALL  Q IN  I TL 

DRVUPW 

??" 

230 


ccc 

DRVUPW 

230 

cc  * 

*  *  INITIALIZE  AMBIENT  ATMOSPHERE  AFTER  SETTING  PARAMETERS  IN 

DRVUPW 

23] 

cc 

TIME,  VPC,  AND  ZHTEMP  COMMONS. 

DRVUPW 

23? 

READ  (5,315)  1YRS,  IMONS,  IOAYS,  ZT.  GCO,  GLO 

DRVUPW 

233 

WRITE(6 ,316)  IYRS,  IMONS,  IOAYS,  ZT,  GCO,  GLO 

DRVUPW 

233 

GCO  *  GCO  *  PI  /  180. 

DPVUPW 

235 

GLO  -  GLO  *  PI  /  180. 

DRVUPW 

236 

PLAT  •  .5  *  PI  -  GCO 

DPVUPW 

237 

PLON  =  GLO 

DRVU“W 

238 

WVFLAG  *  0.  i  METHOD  =0  i  TPFLAG  -  0. 

DRVUPW 

239 

CALL  ATMOSU  (  1,  120.  ) 
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230 

ccc 

DRVUPW 

231 

cc  * 

*  *  INITIALIZE  NATURAL  CLOUDS. 

DRVUPW 

232 

ccc 

DRVUPW 

233 

cc 

THE  STATISTICAL  CLOUD  SUBMODEL  OF  THE  SAI/PA  NATURAL  CLOUD 

DRVUPW 

233 

cc 

MODEL  (NCM)  HAS  NOW  BEEN  INTEGRATED  INTO  THE  UPWELLING 

DRVUPW 

235 

cc 

NATURAL  RADIATION  MODEL.  (THERE  IS  NO  INTENTION  OF  INCORPORA¬ 

DRVUPW 

236 

cc 

TING  THE  DETERMINISTIC  CLOUD  SUBMODEL.)  THE  INTERFACE  OF  THE 

DRVUPW 

237 

cc 

UPWELLING  NATURAL  RADIATION  MODEL  WITH  THE  NCM  IS  ACHIEVED  IN 

DRVUPW 

238 

cc 

TWO  GENERAL  STEPS.  (1)  A  CALL  (FROM  THE  DRIVER  PROGRAM  FOR 

DRVUPW 

239 

cc 

THIS  UPWELLING  NATURAL  RADIATION  MODEL)  TO  NCM  SUBROUTINE 

DRVUPW 

250 

cc 

CLOUDO  WHICH  READS  OATA  CAROS  FOR  THE  STATISTICAL  CLOUD  SUB¬ 

DRVUPW 

251 

cc 

MODEL  AND  (2)  REPLACEMENT  OF  THE  CALL  FROM  THE  NCM  DRIVER  TO 

DRVUPW 

25? 

cc 

THE  NCM  SUBROUTINE  SCLOUD  BY  A  SET  OF  CALLS  AND  OPERATIONS  IN 

DRVUPW 

253 

cc 

SUBROUTINE  UPWELL  WHICH,  IN  THEIR  TOTALITY,  ADAPT  THE  ROLF  OF 

DRVUPW 

253 

cc 

SUBROUTINE  SCLOUD  TO  OUR  SPECIAL  NEEDS.  A  FLAG  ( CLDFLG) ,  SET 

DRVUPW 

255 

cc 

BY  A  READ  STATEMENT,  HAS  BEEN  INTRODUCED  SO  THAT  NATURAL 

DRVUPW 

?56 

cc 

CLOUDS  ARE  IGNORED  IF  CLDFLG=0  AND  ARE  INCLUDED  IF 

DRVUPW 

257 

cc 

(A)  CLDFLG=1  ANO  (B)  THE  ALTITUDE  ABOVE  THE  SURFACE  AT  WHICH 

DRVUPW 

258 

cc 

THE  UPWELLING  RADIATION  IS  COMPUTED  IS  AT  LEAST  12  KM  (THE 

DRVUPW 

259 

cc 

HIGHEST  ALTITUDE  OF  THE  TOP  OF  ANY  OF  THE  STATISTICAL  CLOUDS). 

DRVUPW 

260 

ccc 

DRVUPW 

261 

READ  (5,300)  CLDFLG 

DRVUPW 

26? 

WRTTE!6,318)  CLDFLG 

DRVUPW 

263 

cc 

*  SET  PARAMETERS  IN  PARAMS  COMMON. 

DRVUPW 

263 

INFIL  '  5  J  IOFIL  -  6 

DRVUPW 

265 

ERAD  =  6371.03 

DRVUPW 

266 

OGTOR  *  PI  /  180.  I  RTODG  =1.0/  DGTOR 

DRVUPW 

267 

cc 

*  NOTE  THAT  SUBROUTINE  CLOUDO  READS  SEVEN  CARDS,  THE  FIRST  OF 

DR  VUPW 

268 

cc 

WHICH  IS  FOR  M00E*1  , 

DRVUPW 

269 

IF (  CLDFLG. EQ. 1.0  )  CALL  CLOUDO(MODE) 

DRVUPW 

2/0 

ccc 

DRVUPW 

271 

cc  * 

*  *  CREATE  datasets  BN  AND  BI  and  set  WORDS. 

DRVUPW 

27? 

cc 

wavelengths  in  these  two  datasets  are  in  microns  for  sai  and 

DRVUPW 

273 

cc 

IN  CENTIMETERS  for  grc. 

DRVUPW 

273 

J  -  0 

DRVUPW 

275 

100  READ  (5,320)  ALAM,  ALAM?,  Wl,  W2,  IINT 

DRVUPW 

276 

c 

NEGATIVE  WAVELENGTH  DENOTES  END  OF  BANDS. 

DRVUPW 

277 

IF (  ALAM1  ,LT .  0.  )  GO  TO  105 

DRVUPW 

278 

J  -  J  +  1 

DRVUPW 

279 

C 

DIMENSIONING  LIMITS  ALLOWED  NUMBER  OF  BANDS  TO  5  . 

DRVUPW 

280 

IF (  J  ,GT.  51  GO  TO  105 

DRVUPW 

281 

NWAVE(J)  *  LINT 

DRVUPW 

28? 

IF (  ALAM1  ,EQ.  0.  )  GO  TO  102 

DRVURW 

283 

C 

BAND-LIMIT  WAVELENGTHS  ARE  INPUT. 

DRVUPW 

283 

ALMIN  =  AMIN1  (  ALAM1,  ALAM?  ) 

DRVUPW 

285 

ALMA*  »  AMAa'I  (  ALAM1 ,  ALAM?  j 

DRVUPW 

?«6 

nononn 


CREATE  THE  5-WORD  DATASET-BN  AND  SET  THE  FIRST  FOUR  WORDS. 

CALL  CREATE  (  5,  NBN  ) 

BNLO  BN (NBN)  *  ALMIN 

BNHI  BN (NBN)  *  ALMAX 

WLO  BN (NBN)  *  1.E+04/BNH!  BN(NBN) 

WHI  BN (NBN)  ■  1.E+04/BNLC  BN (NBN) 

D8N  *  (  BNHI  BN(NBN)  -  BNLO  BN(NBN)  )  /  FLOAT(LINT) 

WRITE(6,303)  ALMIN,  ALMAX,  FLOAT(LINT),  DBN, 

*  WLO  BN(NBN).  WHI  BN (NBN) 

LOOP  DO-101  IS  PATTERNED  AFTER  LOOP  DO-700  IN  GRC'S 
PROGRAM  ATKGEN. 

DO  101  1*1, LINT 

CREATE  THE  8-WORD  DATASET-BI  AND  SET  THE  FIRST  SEVEN  WORDS. 
CALL  CREATE  (  8,  NB]  ) 

8NL0  BI(NBI)  *  BNLO  BN (NBN)  ♦  FLOAT ( 1-1 )*DBN 
BNHI  BI (NB! )  -  BNLO  BI(N81)  +  DP. 

WLO  BI(NBl)  -  1.F+04/BNHI  8! (Nr  I 

WHI  BI(NBI)  -  l.E-HM/WLO  BI(NBI) 

BKGND  BI(NBI)  *  0. 

TRANS  BI(NBI)  •  0. 

TFLAG  BI(NBI)  ■  0. 

IF (  I  ,EQ.  1  )  TFLAfi  BI(NBI)  *  1. 

IF (  I  .GT.  1  .ANO.  I  .EQ.  LINT  )  TFLAG  BI(NBl)  *  2. 

SET  WORD-5  OF  DATASET-BN.  UNRV  BN(NBN),  WHICH  IS  A  POINTER  TO 
THE  LIST  HEADER  FOR  THE  0ATASET-8I .  THERE  IS.  OF  COURSE.  A 
DIFFERENT  POINTER  FOR  EACH  DATASET-BN.  USE  OF  SUBROUTINE 
PUTBOT  MEANS  ''HAT  THE  HIGHEST  WAVELENGTH  (OR  LOWEST  WAVENUMBER 
)  IS  ON  THE  BOTTOM  OF  THE  LIST. 

CALL  PUTBOT  (  LINRV  BN (NBN),  NBI  ) 

101  CONTINUE 

GET  LBAND,  THE  POINTER  TO  THE  LIST  HEADER  FOR  DATASET-BN.  IF 
THE  INPUT  BANDS  ARE  ORDERED  WITH  RESPECT  TO  INCREASING  VALUES 
GF  ALAM2  (ASSUMING  ALAM?  .GT.  ALAMI),  THEN  USE  OF  SUBROUTINE 
PUTBOT  MEANS  THAT  THE  HIGHEST  WAVELENGTH  (OR  LOWEST  WAVENUMBER 
)  IS  ON  THE  BOTTOM  OF  THE  LIST. 


CALL  PUTBOT  (  LBANO,  NBN  ) 

GO  TO  100 

BAND-LIMIT  WAVENUMBERS  ARE  INPUT. 

102  *IN  *  AMIN1  (  Wl.  W?  ) 

WMAX  ■  AMAX1  (  Wl,  W2  ) 

ALMIN  *  I.E+04AWAX 
ALMAX  *  l.E*04/IWIN 

CREATE  THE  5-WORD  DATASET-BN  AND  SET  THE  FIRST  FOUR  WORDS. 
CALL  CREATE  (  5.  NBN  ) 

BNLO  BN (NBN)  *  ALMIN 
BNHI  BN (NBN)  *  ALMAX 
WLO  BN (NBN)  ■  WMIN 
WHI  BN (NBN)  •  WMAX 

OWN  *  (  WHI  BN(NBN)  -  WLO  BN(NBN)  )  /  FLOAT (LI NT ) 

WRITE (6, 303)  ALMIN,  ALMAX,  WLO  BN ( NBN ) ,  WHI  BN(NBN), 

»  FLOAT(LINT),  OWN 
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DRVUPW 

325 
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DRVUPW 
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DRVUPW 
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DRVUPW 
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DRVUPW 

332 

DRVUPW 

333 

DRVUPW 

334 

DRVUPW 

335 

DRVUPW 

336 

DRVUPW 

337 

DRVUPW 

338 

DRVUPW 

330 

DRVUPW 

340 

DRVUPW 

341 

DRVUPW 

34? 

DRVUPW 

343 

232 


c 

LOOP  00-103  IS  PATTERNED  AFTER  LOOP  00-702  IN  6RC‘S 

ORVURW 

344 

c 

PROGRAM  ATKGEN. 

DRVUPW 

345 

00  103  1*1 , LINT 

DRVUPW 

348 

c 

CREATE  THE  8-WORD  DATASET-81  AND  SET  THE  FIRST  SEVEN  WORDS. 

DRVUPW 

347 

CALL  CREATE  (  6,  NBI  ) 

DRVUPW 

348 

WLO  BI(NBI)  -  WLO  BN(NBN)  +  FL0AT(I-1)*DWN 

DRVUPW 

349 

WHI  61 (NBI )  •  WLO  BI(N8I )  +  OWN 

DRVUPW 

350 

BNLO  BI(NBI)  *  1 .E+04/WHI  BI(NBI) 

DRVUPW 

351 

BNHI  BI(NBI)  -  1. £+04 /WLO  BI(NBI) 

ORVUPW 

35? 

BKGND  BI(NBI)  *  0. 

DRVUPW 

353 

TRANS  BI(NBI)  ■  0. 

ORVUPW 

354 

TFLAG  BI(NBI)  •  0. 

DRVUPW 

355 

IF (  I  .EQ.  1  )  TFLAG  BI(NBI)  -  2. 

DRVUPW 

356 

IF (  I  .GT.  1  .AND.  I  .EO.  LINT  )  TFLAG  BI(NBI)  •  1. 

DRVUPW 

357 

c 

DRVUPW 

358 

c 

SET  WORD-5  OF  DATASET-BN.  USE  OF  PUTTOP  MEANS  THAT  THE  LOWEST  ORWPW 

359 

c 

WAVENUMBER  (OR  HIGHEST  WAVELENGTH)  IS  ON  THE  BOTTOM  OF  THE 

DRVUPW 

360 

c 

LIST. 

DRVUPW 

361 

CALL  PUTTOP  (  LINRV  BN(NBN),  NBI  ) 

DRVUPW 

36? 

103  CONTINUE 

DRVUPW 

363 

C 

DRVUPW 

364 

c 

GET  LHV  (LBAHD)  FOR  DATASET-BN.  IF  THE  INPUT  BANDS  ARE 

ORVUPW 

365 

c 

OROERED  WITH  RESPECT  TO  INCREASING  VALUES  OF  W1  (ASSUMING  W2 

DRVUPW 

366 

c 

.GT.  Wl).  THEN  USE  OF  PUTTOP  MEANS  THAT  THE  LOWEST  WAVENUMBER 

DRVUPW 

367 

c 

(OR  HIGHEST  WAVELENGTH)  IS  ON  THE  BOTTOM  OE  THE  LIST. 

DRVUPW 

368 

CALL  PUTTOP  (  LBAND,  NBN  ) 

DRVUPW 

369 

GO  TO  100 

DRVUPW 

370 

105 

NBANDS  •  MIHO(  J.  5  ) 

DRVUPW 

371 

ccc 

DRVUPW 

37? 

cc  * 

*  *  COMPUTE  BAND-MODEL  PARAMETERS  AFTER  SETTING  PARAMETERS  IN 

DRVUPW 

373 

cc 

XYZCOM  AND  OPTION  COWONS  NEEDED  FOR  SUBROUTINE  TRANSB. 

DRVUPW 

374 

ITMTE  -  ?  S  LTNTE  *  3 

DRVUPW 

375 

READ  (5,301)  TRNSOPT 

DRVUPW 

376 

WRITE(G,304)  TRNSOPT 

DRVUPW 

377 

CALL  TRANSB  (  LBAND  ) 

DRVUPW 

378 

ccc 

DRVUPW 

379 

cc  * 

*  *  INITIALIZE  ATMOSPHERIC  SHELLS  AFTER  SETTING  PARAMETER  IN 

DRVUPW 

380 

cc 

XrZCOM  COMMON. 

DRVUPW 

381 

READ  (5.300)  FACT 

DRVUPW 

38? 

WRITE(6,302)  FACT 

DRVUPW 

383 

CALL  SHELLS 

DRVUPW 

384 

ccr 

DRVUPW 

385 

cc  * 

*  *  PREPARE  TO  CALL  SUBROUTINE  UPWELL  BY  SETTING  NEEDED  PARAMETERS  DXVUPW 

3B6 

cc 

IN  VARIOUS  COMMONS. 

DRVUPW 

387 

cc 

*  SET  PARAMETERS  IN  AEROK  COWON. 

DRVUPW 

388 

READ  (5,315)  XVI S,  XPTYPE 

DRVUPW 

389 

WRITE (6, 31 7)  XVIS,  XPTYPE 

DRVUPW 

390 

cc 

*  SET  PARAMETER  IN  0PTIN1  COWON. 

ORVUPW 

391 

READ  (5,301)  RAD 91 

DRVUPW 

39? 

WRITE(6,305)  RADSW 

DRVUPW 

393 

cc 

*  SET  PARAMETERS  IN  UPWELS  COWON. 

ORVUPW 

394 

UPWALT  *  0.0  S  UPWLON  •  PION  S  UPWLAT  -  PLAT 

DRVUPW 

395 

READ  (5,315)  KNADIR,  NAZI 

DRVUPW 

396 

WRITE(6,319)  NNADIR ,  NAZI 

DRVUPW 

397 

cc 

*  SET  PARAMETER  IN  XYZCOM  COWON.  MOTE  WOLS  IS  KNOWN  AS  WOLS 

DRVUPW 

398 

cc 

IN  SUBROUTINE  ATMRAD  BUT  AS  NSPEC  IN  SUBROUTINE  TRANS. 

DRVUPW 

399 

HOLS  *  10 
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233 


cc 

*  SET  TWO  OF  THE  PARAMETERS  FOR  SUBROUTINE  UPWELl  ARGUMENT  LIST 

DRVUPW 

«01 

READ  (5,3151  MSM 

DRVUPW 

40? 

WR1TE!6,321 )  MSM 

DRVUPW 

403 

SPCULR  *  .FALSE. 

DRVUPW 

404 

IF (  MSM  ,£Q.  2  )  READ  (5,301)  SPCULR 

DRVUPW 

405 

WR1TE(6,322)  SPCULR 

DRVUPW 

406 

ccc 

DRVUPW 

407 

CC  *  ' 

»  «  LOOP  OVER  BROAD  BANDS  WITH  CALLS  TO  SUBROUTINES  SETALT  AND 

DRVUPW 

408 

cc 

UPWELL.  THE  PORTION  OF  THIS  LOOP  THROUGH  THE  CALL  TO 

DRVUPW 

40? 

cc 

SUBROUTINE  UPWELL  (BUT  WITHOUT  THE  SUBSEQUENT  PRINT)  IS 

DRVUPW 

410 

cc 

PATTERNED  AFTER  THAT  IN  THE  GRC  PROGRAM  OLOOK. 

DRVUPW 

411 

cc 

USE  OF  PREV  IN  STATEMENT  LABELS  106  AND  107  MEANS  THAT  BOTH 

DRVUPW 

412 

cc 

BANDS  AND  BAND  INTERVALS  ARE  BEING  PROCESSED  IN  ORDER  OF 

DRVUPW 

413 

cc 

INCREASING  WAVENUMBERS. 

DRVUPW 

414 

c 

ON  THE  FIRST  CALL  TO  SUBROUTINE  PREV,  THE  INPUT  VALUE  OF 

DRVUPW 

415 

c 

LHBAND  IS  EQUAL  TO  LBAND,  THE  (1-FIELD)  POINTER  TO  THE  (2- 

DRVUPW 

416 

c 

F I  ELD  1  LIST  HEADER  FOR  DAT  ASET- BN,  WHEREAS  THE  RETURN  VALUE  OF 

DRVUPW 

417 

c 

LHBAND  IS  THE  LAST  (3-EIELD)  LINK-WORD  FOR  DATASET-BN  AND  THE 

DRVUPW 

418 

c 

RETURN  VALUE  OF  NBN,  THE  OATASET-BN  INDEX  (OR  POINTER),  IS  THE 

DRVUPW 

415 

c 

Q-ARRAY  ADDRESS  OF  THE  FIRST  (NOT  ZEROTH)  WuPD  OF  DATASET-BN. 

DRVUPW 

420 

c 

SUCCESSIVE  CALLS  TO  PREV  RETURN  SUCCESSIVE  LINK  WORDS  AS  THE 

DRVUPW 

4?1 

c 

VARIA8LE  LHBAND  UNTIL  THE  LAST  CALL  (WHICH  RETURNS  ZERO  FOR 

DRVUPW 

4?? 

c 

THE  DATASET  INDEX  NBN)  RETURNS  THE  (2-EIELD)  LIST  HEADER  AS 

ORVUPW 

423 

c 

THE  WORD  FOR  LHBAND. 

DRVUPW 

424 

J  -  0 

DRVUPW 

425 

LHBAND  *  LBAND 

DRVUPW 

426 

106 

CALL  PREV  (  LHBAND,  N8N  ) 

DRVUPW 

427 

IF(  NBN  .EQ.  0  )  GO  TO  110 

DRVUPW 

428 

J  =  0  +  1 

DRVUPW 

429 

IF (  J  .GT.  5  )  GO  TO  110 

DRVUPW 

430 

I  «  0 

DRVUPW 

431 

c 

LBINT  IS  SAVEO  FOR  CALL  TO  SUBROUTINE  UPWELL. 

DRVUPW 

432 

LBINT  -  LINRV  BN (NBN) 

DRVUPW 

433 

LINT  *  LINRV  BN (NBN ) 

DRVUPW 

434 

10? 

CALL  PREV  (  LINT.  NBI  ) 

DRVUPW 

435 

IF (  NBI  .EQ.  0  )  GO  TO  108 

DRVUPW 

436 

1*1+1 

DRVUPW 

437 

IF (  I  .ST,  10  )  GO  TO  108 

DRVUPW 

438 

WW(I)  *  0.5*(  WHI  Bl(NBI)  ♦  WLO  BI(NBI)  ) 

DRVUPW 

439 

0W( I )  *  ABS (  WHI  BI(NBI)  -  WLO  BI(NBl)  ) 

DRVUPW 

440 

c 

ALAM(I)  AND  OLAM(I)  ARE  USED  ONLY  IN  PRINTING  THE  RESULTS  SO 

DRVUPW 

441 

c 

THAT  BOTH  WAVENUMBERS  AND  WAVELENGTHS  ARE  READILY  AVAILABLE. 

DRVUPW 

44? 

ALAM(I)  *  1  .  E+04/WW( I ) 

DR  VUPU 

443 

DLAM(I)  -  ABS(  BNHI  BI (NBI )  -  BNLO  BI(NBI)  ) 

DRVUPW 

444 

GO  TO  107 

DRVUPW 

445 

108 

CONTINUE 

DRVUPW 

445 

NUAVE(J)  *  MINO(  I,  10  ) 

DRVUPW 

447 

NWAVEJ  *  NWAVE ( J) 

DRVUPW 

448 

cc 

*  SET  ARGUMENT-LIST  PARAMETERS  FOR  SUBROUTINE  SETALT. 

DRVUPW 

449 

ALMAX  *  l.E*04/(  WW(  1 ) -0.5*0W(  1 )  ) 

DRVUPW 

450 

ALMIN  ■  l.E+M/(  WW  ( NWAVE  J )  +0 . 5*DW(  NWAVEJ )  ) 

DRVUPW 

451 

ALMIN  -  AMAX1  (  ALMIN,  2.0  ) 

DRVUPW 

45? 

ALMAX  *  AMIN1  (  ALMAX,  5.0  ) 

DRVUPW 

453 

CALL  SETALT  (  ALMIN,  ALMAX,  J  ) 

DRVUPW 

454 

cc 

NOTE  THAT  SUBROUTINE  SETALT  OUTPUTS,  THROUGH  UPVELS  COtWI, 

DRVUPW 

455 

cc 

NALT(O)  AND  ZKM(IJ.J). 

DRVUPW 

456 

cc 

•  NOW  READY  TO  CALL  SUBROUTINE  IIRWELL. 

DRVUPW 

45? 
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REWIND  8  ,  .  f 

CALL  U DWELL  (  MSM.  00,  WW,  DW,  SPCULR,  LBINT,  J  )  1 

CC  r 

CC  *  *  PRINT  RESULTS. 

REWIND  8  J 

40?  ™.Ja|6(iSm?x.*upwelling  radiancf  results  from  program  DRVUPW/1  I 

SX.48X.33HIN  UNITS  OF  WATTS/(CM»?  SR  CM-1)) 

WRITE(6,40i)  J,  NWAVEJ 

401  FORMAT  (1H0,5X,8HJ=JBAND=,I2,14H  nwave(  'Y&L ,,  ! 

WRITEI6  4061  (WW(L ),DW(l ),ALAM(l ).DLAM(L ),L=1 .NWAVEJ) 

406  FORMAT  (*0  FOR  THE  SPECTRAL  QUANTITIES  WE  HAVE  ^OR  l-l.NWAWEJ) 
STHE  QUARTETS  WW(L),  OW(L),  ALAM(L),  AND  DLAMiL )  *  / ( 5X .1P8E12 .4 ) ) 
WRITE  (6/03)  M5M 

403  FORMAT  (1H0.5X , 5HMAT .  =  , 13 ; 

IC  *  0 

ICC  =  0 

NALTJ  =  NALT(J) 

DO  475  11=1 .NALTJ 

WRITE  (6,408 ;  ZXM(II.J)  . 

409  FORMAT  (1H0.5X.10H ALTITUDE  =,F7.?,4H  KM) 

DO  470  JJ  =  1,NNA01R 
WRITE (6, 404)  OJ 

404  FORMAT  (1H0.1 X,*NAD1R  3  =  *1?! 

READ ( 8 )  (  (  UPRAD(XK.LL).XX*1.NAZ1  ),  LL  =  1, NWAVEJ  ) 

405  F0RMAT6I4X^*N0  CL0UDSV2X ,?<HAZIMUTH  /  WAVENUMBER . ,5X .lOHUW AD(K,L 

i» 

ccc 

DO  480  KK*1 .NAZI  ,  ,  t  , 

WRITE(6.407)  XX,  (  UPP AO(XK ,LL ) ,LL=1 ,NWA , E J  ) 

407  FORMAT  (2X,  15  .1P10E12.4) 

480  CONTINUE 

CCC  IF (  (CLDFLG  .EO.  0.0)  -OR.  (ZMtll.J)  .LT.  12.0)  )  GO  TO  470 
READ(8)  (( I  R010(XX,Ll  '  ,R0?5fXX,U  ;  ,rOcO[KK,Ll  )  ,R090(XX  ,LL ) , 

S  ftlOO(KK.LL)),  XT.i.NAZIi.  ..1*1, NWAVEJ) 

605  FORMAT^! 1ho]3X,*VITH  CL0UDS*/2X,21HAZIMUT*i  /  W-VENUM8CR  .5X.64HARC 
tV(R.L).  ROIO'X.L).  R025(X.L),  R05C(K,L),  RO°OiX.L).  RlOO(X.cl) 

CCC 

IF  (  JJ  .FO.  1  )  ICC  »  ICC  ♦  1 
DO  680  KK=1 .NAZI 

WR!TE(6.6070)  XX . (ARCVAf ICC ,JJ.IL ) ,LL =1 .NWAVEJ ) 

WRITE(6,6071)  XX,  (R010(KX,LL ) .11*1 .NWAVEJ) 

WRITE(6.6072)  XX.  (R0?5 (XX , LL ) ,Ll *1 .NWAVEJ ) 

WRITE(6.6073)  XX,  (R05C(XX.LL ) ,LL*1 .NWAVEJ) 

WRITE(6  ,6074 )  XX,  (P090IXX.LL  ),LL 

WRITE(6,6075)  XX,  (R100(XX,LL ),LL«1, NWAVEJ) 

6070  FORMAT  (IX.  14  ,  6H  ARCV  ,  1P10E12.4) 

6071  FORMAT  (IX,  14  ,  6H  R01O  ,  1P10F12.4) 

6072  FORMAT  (1 X.  14  ,  6H  R025  ,  1P10E12.4) 

6073  FORMAT  (IX,  14  ,  6H  R050  ,  1P10E17-4) 

6074  FORMAT  (IX,  14  ,  6H  ROOT  ,  1P10E1?.4) 

Kn75  FORMAT  (iX.  14  .  GO  R100  ,  1P10E1Z.4) 


WRITE(6,6075) 

6070  FORMAT  (IX,  14 

6071  FORMAT  (IX,  14 

6072  FORMAT  (IX,  14 

6073  FORMAT  (IX,  14 

6074  FORMAT  (IX,  14 

6075  FORMAT  (iX,  14 
680  CONTINUE 

470  CONTINUE 
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DRVUPW 

DRVUPW 

DRVUPW 

DRVUPW 

DR'RJPW 

DRVUPW 

DRVUPW 

DPVUPW 

DRVUPW 

DRVUPW 

DRVUPW 

DRVUPW 

DRVUPW 

DRVUPW 

DRVUPW 

DRVUPW 

DRVUPW 

DRVUPW 

DRVUPW 

DP  VUpW 

cdvupw 

DRVUPW 
DRVUPW 
DR VUPW 
DRVUPW 
.  DRVUPW 
DRVUPW 
DRVUPW 
DRVUPW 
DRVUPW 
DRVUPW 
DRVUPW 
DRVUPW 
DRVUPW 
DRVUPW 
DRVUPW 
DRVUPW 
C  DRVUPW 
DRV1JPV 
DRVL'Rh 
DRVUPW 
DR VUPW 
DRVUPW 
DRVL'PW 
DRVUPW 
DRVUPW 
DRVUPW 
DRVUPW 
DRVUPW 
DRVUPW 
DRVUPW 
PRVUT’W 
DRVUPW 
DR  VUPW 
ORVL'PU 
ORVl-W 


WRITE(6,413) 

413  FORMAT  {1HO, IX, 'AZIMUTH-AVERAGED  RESULTS"/3X,*N0  CLOUOS»/2X,21H  N 
SADIR  /  WAVENUMBER .  ,5X,13HUPRADA( I  ,J,L  )) 

DO  465  JJ*1 ,NNAD !R 

WRITE(6,411)  JO,  (  UPRADA(!!,JO.LL),Ll-l, NWAVEJ  ) 

411  FORMAT  (2X,  15  .1P10E12.4) 

465  CONTINUE 
CCC 

IF{  (CIDFL6  .EQ.  O.O)  .OR.  (ZKM(II.J)  .LT.  12.0)  )  SO  TO  435 
WRIT£(6,613) 

613  FORMAT  (1H0,3X,*WITH  CL0UDSV2X.21H  NADIR  /  WAVENU>CER.,5X,82HARC 
SVA(I,J,L),  R010A(I,J,L),  R025A(I,J,L),  ROSOA{I,J,U,  R090A( I , J.L ). 
$  RIOOA(I.J.L)) 

1C  -  IC  +  1 
DO  665  JJ-1.NNAD1R 

WRITE(6,6110)  JO,  (ARCVA(1C,JJ,LL),LL*1, NWAVEJ) 

HRITE(6.6111)  00,  (R010A(IC,JJ,LL),LL*1. NWAVEJ) 

VRITE(6,6112)  JJ,  (R025A{  IC, JJ,LL )  ,LL*1 .NWAVEJ) 

HRITE(6,6113)  OJ.  (R050A(  IC,  OJ  ,LL )  ,LL*1  .NWAVE  J) 

WRITE(6,6114)  JJ,  (R090A< IC,JJ,LL),LL-1 .NWAVEJ) 

WRITE(6,6115)  JJ,  (R100A(  IC.OO.LL  ),LL*1, NWAVEJ) 

6110  FORMAT  (IX.  14  ,  6H  ARCVA.1P10E12.4) 

6111  FORMAT  (IX,  14  ,  6H  R010A.1P10E12.4) 

6112  FORMAT  (IX.  14  ,  6H  R025A.1P10E12.4) 

6113  FORMAT  (IX,  14  ,  6H  R050A,1P10E12.4) 

6114  FORMAT  (IX,  14  ,  6H  R090A.1P10E12 .4) 

6115  FORMAT  (IX,  14  ,  6H  R100A.1P10E12 .4) 

665  CONTINUE 

475  CONTINUE 

WRITE(6.414) 

414  FORMAT  (1H0.10X, 'AZIMUTH-  AND  NADIR-AVERAGED  RESULTS  VS  ALTITUDE*) 
URITE(6,415) 

415  FORMAT  (1HO,1X,*NO  CL0U0S*/2X,17HALT  /  WAVENUMBER . .5X,*UPRADN( I ,L , 
SO)*) 

00  490  II=1,NAITJ 

WRITE(6,417)  ZKM(II,J),  (  UPRADN{7I,U.,J),LL*1.NWAVEJ  ) 

417  FORMAT  (2X.F7 .2.1P10E12.4) 

490  CONTINUE 
CCC 

IF (  CLOFLG  .EQ.  0.0  )  GO  TO  109 
IC  -  0 

WRITE(6,615) 

615  FORMAT  (1H0,1X,*WITO  CLOUOS'/2X .17HALT  /  WAVENUMBER . ,5X,*ARCVN( I ,L 
J),  R010N(I,l).  R025N(I,L),  R050N(!,l),  R090N(I,L).  RlOON(I.l)*) 

00  690  1I-1.NALTJ 

IF (  ZKM( II ,J)  .LT.  12.0  )  GO  TO  690 
IC  »  IC  +  1 

WRITE{6,6170)  ZKM(II.J),  (  ARC VN( IC.LL) ,LL*1 , NWAVE J  ) 

WRITE(6,6171 )  ZXH(  II , J) ,  (  R010N( IC ,LL ) ,IL«1 .NWAVEJ  ) 

WRITE(6.6172)  ZXM(H.J),  (  R025N ( IC , LI ) ,LL-1  .NWAVEJ  ) 

WRITE(6,6173)  ZKM(lI,0),  (  R050N(  IC.LL )  ,LL-1  .NWAVEJ  ) 

WRITE(6,6174)  ZKM(Il.J),  (  R090N( IC .LL ) ,LL*1 .NWAVEJ  ) 

WRITE(6,6175)  ZXM(II,J),  (  R 1 OON ( I C,LL),LL*i, NWAVEJ  ) 

6170  FORMAT  (IX,  F6.2  ,  6H  ARCVN.1P10E12.4) 

6171  FORMAT  (IX,  F6.2  ,  6H  R010N,  1P10E12 .4 ) 


ORVUPW 
DRVUPW 
OR  .UPW 
DRVUPW 
DRVUPW 
DRVUPW 
DRVUPW 
ORVUPW 
ORVUPW 
poytifw 
DRVUPW 
ORVUPW 
DRVUPW 
ORVUPW 
DRVUPW 
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DRV.lPW 
DRVL’°V 
DRVUPW 
DRVUF-! 
DRVUPW 
DRVUPW 
DRVUPW 
DRVUPW 
DRVUPW 
DRVUPW 
DRVUPW 
DRVUPW 
ORVUPW 
DRVUPW 
DRVUPW 
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6172  FORMAT 

(IX,  F6.2  ,  6h  R02SN.1P10E12.4) 

ORVUPH 

572 

6173  FORMAT 

(IX,  F6.2  .  6H  R050N.1P10E12.4) 

DRVJPH 

573 

6174  FORMAT 

(IX,  F6.2  ,  6H  R090N.1P10E12 .4) 

DR  YU  PM 

574 

6175  FORMAT 

(IX,  F6.2  ,  6R  R100M.1P10E12.4) 

DRVUPH 

575 

690  CONTINUE 

DftVUFii 

576 

109  GO  TO  106 

DR  YU  PH 

5/7 

110  CONTINUE 

DR  YU  PH 

578 

200  STOP 

DR  YU  PH 

579 

cc 

DR  YU  PH 

580 

300  FORMAT 

(  8E10.0  ) 

DR  YU  PH 

581 

301  FORMAT (L 10) 

ORVUPH 

58F 

302  FORMAT 

(1H0.1X,  6HFACT  *,F6.2) 

DRYUPH 

583 

303  FORMAT 

(  IP  6E15.5  } 

DR  YU  PH 

584 

304  FORMAT 

(1H0.1X,  9HTRNS0PT  *,L2) 

ORVUPH 

585 

305  FORMAT 

(1H0.1X,  7HRADSV  -.12) 

ORVUPH 

586 

315  FORMAT 

(  3110,  3E10.0  ) 

DRYUPH 

587 

316  FORMAT 

(1H0.1X,  6HIYRS  =,I3,7X,7HIM0NS  *, I3.7X.7HIDAYS  *, 

,I3,7X,4HZ  ORVUPH 

588 

ST  *,F6. 

.3.4X.5HGCO  =,F8.3,3X,5HGE0  -.FB.3) 

DRYUPH 

589 

317  FORMAT 

(1H0.1X,  6HKVIS  =, ! 2,7X,8hKPTYPE  *,I2) 

DRYUPH 

590 

318  FORMAT 

( 1  HO, IX,  SHCLOaG  *,F3.0) 

DRYUPH 

591 

319  FORMAT 

(1H0.1X.  6HNNADIR  *,I2,7X,6HNAZI  »,I2) 

DRVUPH 

592 

320  FORMAT 

( 4E10.0,  110) 

DRYUPH 

593 

321  FORMAT 

(1H0.1X,  5HMSM  *,I2) 

ORVUPH 

594 

322  FORMAT 

(1H0.JX,  8HSPCULR  *,L2) 

DRYUPH 

595 

323  FORMAT 

(1H04X.502S) 

DRVUPH 

596 

END 

DRVUPH 

597 

t 


FUNCTION  ACCUM(  I TYPE,  XI,  X2.  FI,  F2,  A,  B  ) 

ACCl* 

2 

ACCUM 

3 

CL  J 

FUNCTION  ACCOM  INTEGRATES  BETHEEN  X'A  AND  X=8  A  FUNCTION  F(X) 

ACCUM 

4 

CLJ 

GIVEN  AT  THO  POINTS  Xl  AND  X2  BY  LINEAR,  LOGARITHMIC,  OR 

ACCUM 

5 

CLO 

POt-tR-LAH  INTERPOLATION,  CORRESPONDING  TO  ITYPE  =  1,2,3  . 

ACCUM 

6 

CIO 

RESPECTIVELY.  LINEAR  INTERPOLATION  IS  ASSUMED  IN  CASE  THE 

ACCUM 

7 

CLO 

other  methods  hould  fail. 

ACCUM 

8 

C 

ACCUM 

9 

GO  TO  (  1,  2,  3  ),  I TYPE 

ACCUM 

10 

1 

ACCUM  •  .5  /  (  X2  -  XI  )  M  F2  *  ((  B  -  XI  )**2  -  (  A  -  XI  )**2  )  ACCUM 

11 

1  -  FI  *  ((  B  -  X2  )«2  -  (  A  -  X2  )**2  }) 

ACC'JM 

1? 

RETURN 

ACCUM 

13 

2 

IF  {  FI  *  F2  ,LE.  0.  )  SO  TO  1 

ACCUM 

14 

IF  (  ABS(  1.  •  FI  /  F2  )  .LT.  0.01  !  GO  TO  1 

ACCUM 

15 

ALNR  *  ALOG(  F2  /  FI  ) 

ACCUM 

16 

ACCUM  *  FI  /  ALNR  *  (  EXP{  (  B  -  XI  )  /  (  X2  -  X]  )  *  ALNR  )  - 

ACCUM 

17 

1  EXP(  (  A  -  XI  )  /  (  X?  -  XI  )  '  LLNR  ))  *  (  X2  -  XI  ) 

ACCUM 

18 

RETURN 

ACCUM 

19 

3 

IF  (  Xl  *  X2  .LE.  0,  .OR.  FI  »  F2  .LE.  0.  )  GO  TO  1 

ACCUM 

20 

EVAL  -  ALOG(  F2  /  FI  )  i  ALOGt  X2  '  *1  ) 

ACCUM 

21 

IF  (  AB5(  EYAL  .GT.  10.  )  GO  TO  1 

ACCUM 

22 

ACCUM  -  FI  /  ((  EVAL  +  1.  )  *  X1««EVAL  )  *  (  B**(  EVAL  +  1.  )  - 

ACCUM 

23 

1  A**(  EVAL  ♦  1.  }  ) 

ACCUM 

24 

RETURN 

ACCUM 

25 

END 

ACOP* 

26 
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ccc 

c 

c 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

ccc 

CL  J 
CLJ 
CL’ 
CIO 
C>.J 
CLJ 
CLJ 
CLJ 
CLJ 
CLJ 
CLJ 
CLJ 
CLJ 
CLJ 
CLJ 
CLJ 
CLJ 
CLJ 
CLJ 
CLJ 
'LJ 
CLJ 
CLJ 
CLJ 
CLJ 
CLJ 
CLJ 


SUBROUTINE  AEROSOL (  HCM.IAMDA.XKSCT.XKABS.GBAR  )  AERSOL 

AFRSOL 

SUBROUTINE  AERSOL  COMPUTES  ATTENUATION  COEFFICIENTS  FOR  AERSOL 

SCATTERING  AND  ABSORPTION  AND  THE  ASYMMETRY  FACTOR  (AVERAGE  AERSOL 

COSINE  OF  THE  SCATTERING  ANGLE)  DUE  TO  ATMOSPHERIC  AEROSOLS.  AERSOL 

THIS  PROGRAM  IS  BASED  DIRECTLY  ON  THE  WORK  OF  E.F.  SHETTLE  AND  AER5CL 

R.W.  FENN  OE  AFGL  AND  USES  A  PORTION  OF  MATERIAL  WHICH  WILL  AERSOL 

APPEAR  IN  A  FORTHCOMING  DOCUMENT  (AFGL-TR-77-XXXX),  1 'MODELS  OF  AERSOL 
THE  ATMOSPHFRIC  AEROSOLS  AND  THEIR  OPTICAL  PROPERTIES"  BY  E.P.  AERSOL 
SHETTLE  AND  p.W.  FENN,  AERSOL 

IN  SUBROUTINE  AERSOL,  THE  WAVEl  ENGTH  REGION  IS  RESTRICTED  TO  2-5  AERSOL 

MICRONS  AND  PROPERTIES  ARE  PRESENTED  FOR  AVERAGE  SEASONAL  CONDI-  AERSOL 

TIONS  ONLY  AND  FOR  ALTITUDES  LESS  THAN  100  KM.  THE  ALTITUDE  AERSOL 

RECION  FROM  SEA  LEVEL  TO  100  KM  IS  DIVIDED  INTO  FOUR  REGIONS...  AERSOL 

A  BOUNDARY  LAYER  0-2  KM  AERSOL 

B  TROPOii  HERE  2-9  KM  AERSOL 

C  STRATOSPHERE  9-30  KM  AERSOL 

D  UPPER  ATMOSPHERE  30-100  KM  AERSOL 

IN  THE  TROPOSPHERE  AND  THE  BOUNDARY  LAYER  REGION,  PROPERTIES  ARE  AERSOL 
COMPUTED  FOR  ONE  OE  FIVE  VISIBILITY  RANGES  (50.23,10,5,2  KM'  AND  AERSOL 
IN  THE  BOUNDARY  LAYER,  FOR  ONE  OF  THREE  TERRAIN  TYOFS  (RURAL.  AERSOL 
URBAN,  AND  MARITIME).  IN  THE  STRATOSPHERE  A  CONTRIBUTION  FROM  AERSOL 
VOLCANIC  AEROSOLS  IS  ALSO  ADDED  TO  THAT  FROM  BACKGROUND  AEROSO-S.  AuRSo.. 
THE  ABSORPTION  COEFFICIENTS  ARE  COMPUTED  AS  A  PRODUCT  OF  A  SCALE  AERSOL 
FACTOR  (EQUAL  TO  THE  AEROSOL  EXTINCTIONS  AT  0.55  MICRONS)  FOR  THE  AERSOL 
DIFFERENT  MODELS  TIMES  ATTENUATION  COEFFICIENTS  FOR  THE  AERSOL 

SCATTERING,  ABSORPTION  ANO  THE  ASYW4ETRY  FACTOR  AS  FUNCTIONS  OF  AERSOL 

WAVELENGTH  NORMALIZED  TO  THE  EXTINCTION  COEFFICIENT  AT  0.55  AERSOL 

MICRONS.  AERSOL 

AERSOL 

AERSOL 

VERSION  1  OF  THE  VI  SI  DYNE- SUPPLIED  AERSOL  ROUTINE  WAS  RECEIVED  ON  AERSOL 
10/13/77.  WE  HAVE  LEFT  GBAR,  THE  ASYW4ETRY  FACTOR,  IN  UiE  ARSU-  AERSOL 
KENT  LIST  SUT  Hi/E  COUNTED  OUT  THE  STATEMENTS  WHICH  EVALUATE  AERSOL 
GBAR  BECAUSE  OUR  TREATMENT  OF  AEROSOL  TRANSMITTANCE  DOES  NOT  USE  AERSOL 
IT.  OUR  TREATMENT  PROVIOES  FOR  ATTENUATION  BY  ABSORPTION  AND  AERSOL 

SCATTERING  OUT  OF  THE  BEAM  BUT  FOR  NO  SCATTERING  INTO  THE  BEAM.  m'RSOL 
IT  WAS  OUR  UNDERSTANDING  THAT  G.E. TEMPO  (EWING,  10/19/77)  ALSO  AER50L 

PLANNED  TO  ACCOUNT  ONLY  FOR  SINGLE  SCATTERING  OF  AEROSOLS  (AS  AE°SOl 

OPPOSED  TO  ACCOUNTING  FOR  MULTIPLE  SCATTERING  WITHIN  NUCLEAR  AERSOL 

CLOUDS).  ON  THIS  BASIS  WE  INTEGRATED  SUBROUTINE  AERSOL  INTO  OUR  AERSOL 

UPWEl  LING  NATURAL  RADIATION  MODEL  AND  INTERFACED  IT  WITH  THE  GET  AERSOL 

TRANSMISSION  MODEL.  AFRSOL 

AERSOL 

OUR  COPY  OF  VERSION  2  OF  AERSOL  IS  DATED  2/13/78.  WE  HAVE  UPDATED  AERSOL 

OUR  VERSION  1  WITH  THE  SUB5TANTIVE  CHANGES  IN  VERSION  2  BUT  DID  AERSOL 

NOT  INCLUDE  THE  NONSUBSTANTIVE  CHANGES  IN  SPELLINGS.  AFRSOL 

AERSOL 

NOTE... WE  HAVE  ALSO  MADE  CORRECTIONS  PERTAINING  TO  THE  SEARCH! NT,  AERSOL 

OF  THE  WAVELENGTH  ARRAY  IN  DO-lOOPS  6,  7,  9,  AND  10.  AERSOL 

IF  LAMDA=WAVE(12)-5.0  MICRONS  ERRONEOUS  VALUES  OF  XKSCT  AERSOL 

ANO  XKABS  WOULD  BE  RETURNED  TO  THE  CAlLING  PROGRAM-.  AERSOL 

AERSOL 

VERSION  3  (06/29/781  PROVIOES...  AERSOL 

1.  THE  ALTITUDE  IN  THE  ARGUMENT  LIST  TO  BE  IN  CENtIMETFRS  AERSOL 

INSTEAD  OF  KILOMETERS.  AFRSOL 

2.  THE  SCATTERING  AND  ABSORPTION  ATTENUATION  COEFFICIENTS  TO  BE  AERSOL 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

1? 

13 

la 

15 

16 
17 

is 

19 

20 
21 
2? 

23 

24 

25 
?c 
27 
78 

29 

30 
3! 
3? 

33 

34 

35 

36 

37 
36 

39 

40 
4! 
4? 
47 

44 

45 

46 

47 

48 

49 

50 

51 
6? 
5? 

54 

55 

56 

4? 

58 
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NOTE. 


CU 

cu 

CU 
CLO 

cu 
:u 
cu 
cu 
cu 
cu 

CLJ 
cu 
cu 
cu 

CU 
CLO 
CLO 
CLJ 
CLO 
CLO 
CLO 
CLO 
CLO 
CLO 
CLO 
CLO 
CLO 
CLO 
CLJ 
CLJ 
CLO 
CLO 
CLO 
CLO 
CLJ 
CLO 
CLJ 
CLJ 
CLJ 
CLO 
CLO 
CLO 
CLO 
CLO 
CU 
CLJ 
CLO 
CLJ 
CLO 
CLJ 
CLJ 
CLJ 
CLJ 
CU 
CLJ 
CLO 


IN  1/C*  IN  STEW  OF  1/XM. 

VERSION  4  (01/13/7?)  P*!^ES---  5  f0R  NONZERO  VALUES  OF  THE 
3  A  TEST  (2.0  -LE.  '  •Lt‘ 

‘  OUTPUT  PARAMETERS  rOMPMTEP  MODEL  FOR  ATMOSPHERIC 

sssa"«as.oa k 

INPUT  parameters 

argument  list altituee  above  sea  level,  c* 

LAMOA  =  WAVELENGTH,  MICRONS 

*“  S5P  rsMiKiSEiS^  s  S 

sssssi; 

*  l  CORRESPONDS  TO  VISIBILITY  RAV»E  »  5  K* 

s  6  CORRESPONDS  TO  vl5lB,ClTV  RANGE  - 

V.TVPE  *  TERRAIN  PARAMETER  (FOR  H'0-2  A  ) 

*  1  TERRAIN  -  rural 

,  2  TERRAIN  -  ItfSAN 

=  3  TERRAIN  *  MARITIME 

OUTPUT  PARAMETERS 

SCATTERING  ATTENUATION  COEFnn^T  1/0* 

XSABS  •  ABSORPTION  ATTENUATION  COEFFICIENT, 

GBAR  -  FSTWETRY  FACTOR 


VAaIA?'  ES  IN  DATA  ARRAYS 
WAVE  111 


ABS06AI 1 , 0 1  >  • 
ABSC3DU) 
ASYMA(I.O),.. 
asymd( 1 ) 
SCATA/ 1,0).. 
SCATDIU 
A.B.C,  ANO  0 
INDEX  1 
INDEX  0 
SC  AllM. 

SC  AES'!  ) 


wavelength  arra’  for  absorb,  asym.  and 
absorption  attenuation 
COEFFICIENTS. 

ASYWHRY  FACTORS. 


AERSOL 

69 

AERSOL 

60 

AERSOL 

61 

AERSOL 

6? 

AERSOL 

63 

AERSOL 

64 

AERSOL 

66 

AERSOL 

66 

AERSOL 

67 

AERSOL 

68 

AERSOL 

69 

AERSOL 

70 

AERSOL 

71 

AERSOL 

72 

AERSOL 

73 

AERSOL 

AERSOL 

AERSOL 

AERSOL 

AERSOL 

AERSOL 

AERSOL 

AERSOL 

AERSOL 

AERSOL 

AERSOL 

AERSOL 

AERSOL 

AERSOL 

AERSOL 


74 

75 

76 

77 

78 

79 
BO 
81 
8? 

83 

84 
88 
86 

87 

88 
8? 


=  NORMALIZED  SCATTERING  ATTENUATION 
COEFFICIENTS. 

SIGNIFY  ALTITUDE  REGIONS. 

_  H  aeroW  GT?PE  FOR ' H.O-?  **. 

„  ,  NORMALIZED  SCALE  FACTOR  FO«  AUlTUOE 

.  REGIONS  A5  FOLLOWS ... 

SCALSi.)  BOUNDARY  LAYER 

2*8  TROPOSPHERE 
3,«=C  STRATOSPHERE,  VOLCANIC 

INDEX  I  REFERS  TO^LmuDE^OR  PFSIONS  '.  WD  ?.  SCA'^ 

DIMENSION  HITEfAl.SCALHA^l.WAVE'lZl.SCATAdPU'.ABSOBA  1  ,4  . 


AERSOL 

90 

AERSU 

°1 

AERSOL 

9? 

AERSOL 

93 

AERSOL 

oe 

AERSOL 

96 

AERSOL 

96 

AERSOL 

9’ 

AERSOL 

9F 

AERSOL 

00 

Arsen: 

100 

AERSOL 

iu 

AERSOL 

10’ 

AERSOL 

u 

AERSOL 

104 

AE-'SO* 

10c 

AERSOL 

I  OR 

AERSOL 

107 

AERSOL 

108 

AERSOL 

109 

AERSOL 

110 

AERSOL 

111 

AERS7L 

u? 

AE°SOt 

11? 

AERS7L 

114 

AERSOL 

1 1 A 

1  SCATB(12),ABS068(12).  SCATC(12,2), 

2AB$0BC<12,2),  SCATD(12),ABSOBO(i:), 

3  SCAL2(  8,2 )  ,SCAL3( 22 )  .SCAL4J  22),SCAL5f  151 
CC  DIHENSIOAT  ASW(12,4),  ASY3*U2>.  A$rMC(12.2),  ASYWX12) 
COf*CN/AEROK  /  KVIS,  RETYPE 
REAL  LAXOA 

DATA(WA7E(  1  ),  1*1 ,12) 72.0,2, 25 ,2. 5, 2. 7, 3.0, 3.2, 3. 392, 3, 5,3. 7$,*. 0  4 
1.5, 5.0/ 

DATA(Hi7E{J).l^i,4;/a.0,1.0.1.5,2.0/ 

0ATA( SCAll ( 1,1 ), 1=1,4 )/6. 956-2,2. 586-2,1. 61 E- 2,9. 70E- 3/ 
0ATA(SCALi;i,2),t=l,4)/1.57E-l,9.9O£-2.7.92E-2,6.21E-2/ 
DATA<SCALl(!,3),l*1.4)/3.72E-l,3.72E-l,3.72E-l,6.21E-2/ 

DATA) SCALl (1,*),I*1,4)/7.E7E-1,7. 57E-1 ,7 . 57E-1.6 .21E-2/ 

DATA(SCAL1  ( 1 , 5) , I*l,4)/1 .88, 1 . B8, 1 .88, 6.21E-2/ 

OATA( SCATA( I,l).!=t,12)/1 .312E-1 ,1 . 1406-1 ,1 .016E-l,7.835t-2, 
18.330£-2,9.339E-2,9.251E-2,9. 598t-2,9.394E-2,9.001E-2, 
28.011E-2.7.672E-2/ 

OATA( ABSOBA(I,l),I*l,12)/2.763E-2,2.894E-2,2.932E-2,6.559E-2, 
13.696E-2.2.046£-2,1.979E-2.1.583E-2,i.35?E-2.1.465E-2. 
22.219E-2.2.033E-2/ 

OATA(ASYMA( I, 1), 1*1.12)/. 715,. 7306,. 7459,. 7863,. 7714,. 7491,. 7456, 

1 .7316 . . 7337 . . 7390. . 7560 . . 7636/ 

DATA(SCATA(I,2),I*l,12)/1.129E-1.9.833E-2.8.758E-2,7.286E-2. 
17.2O9E-2,7.572E-2,7.383E-2,7.5O0E-2,7.258E-2.6.939E-2, 
16.220E-2.5.900E-2/ 

DATA(A8SOBA( l ,2),1*1,12)/1 .339E- 1,1.2406-2,1 .157E-1 ,1 .288E-1 
1 .1.0756-1,9 ,346E-2,8.966E-2,8.610£-2,8.063E-2,7.739E-2, 

27 .474E-2.6.824E-2/ 

OATA(ASYMA( I. 21.1-1,12)/. 649, .6609, .6730,. 6900,. 6937,. 6894, 

1 .6907 . . 6841 . .6887 .. 6943 .. 7099. . 7193/ 

DATA ( 5CATA( 1, 3 ),[=1, 12 )/7. 1 596- 1,6,7726- 1,6.0936- 1,4. 399E-1, 
13.271E-1,4.5946-1,5.670E-1,5.849E-1,5.645E-1,5.?S9E-1. 
24.520E-1.4.072E-1/ 

DATA(ABS08A( I ,3),1 *1,12) /I ,380E-2,1.062E-2,2.125E-2, 9.1 346-2, 
13.327E-1 ,2.208E-l,8.004E-2,4 . 164E-2.1 .718E-2.1 .985E-2, 
24.247E-2.3.660E-2/ 

OATA(ASYMA(I, 3), 1*1, 12)/. 7857, .7931.. 8114,. 8611,. B205,. 7724 

1..  7448.. 7413.. 7475.. 7530.. 7630.. 7645/ 

DATA  (SCAL2(I,1), 1*1,8)  /  9.70E-3,9.25E-3,8.32E-3,7.08E-3,5.63E-3, 
1  4.26E-3.2 .39E-3.1 .40E-3  / 

DATA  f SCAL?( 1 ,2), 1*1, 8)  /  6,21E-2.3.09E-2,1.53E-2,7.08E-3,5.63E-3, 
1  4.26E-3,2.39f-3,1.40E-3  / 

DATA(SCATB( I ),l*l,12)/6. 761E-2.5 .0O5E-?,3.797E-2,2.650E-2, 
12.394E-2,2.350E-2,?.133E-2,2.174E-2,1 .838E- 2,1 .56*6-2, 
21.159E-2.8.487E-3/ 

DATA(AB50BB( I ) ,1*1,12)/1 .0926-2,1 . 146E-2.1 . 157E-2.3.891E-2, 

11. 5896-2,6. 7696-3,6. 4816-3, 4. 826E-3. 4. 017E-3, 4. 343E-3, 
27.0136-3,6,2336-3/ 

CC  DATA(ASYH6U),  1*1. 12)/.  5828,.  5688,.  5551,.  5427,  .5305, 

CC  1.5236,. 5166,. 5089,. 4999,. 4910,. 4739,. 4614/ 

DATA  ($CAL3( 1 ),1*1,22)  /  1 .406-3.9.646-4,7 .57E-4, 6, 53E-4, 5 .70E-4, 

1  5.446-4,5, 196-4,5. 126-4,5. 136-4 ,5. 41E-4 ,5. 37E- 4, 5. 07E- 4, 

2  4.286-4, 3. 586-4,2. 716-4 ,1 . 946-4 ,1 .41E-4 ,1 .03E-4, 7.87E-5, 

3  5.94E-5.4.66E-5,3.32E-5  / 

DATA  (SCAL4(i),l-1.22)  /  1 .406-3,1 . 62E-3 ,1 . 956-3 .2 .33E-3.2. 77E-3, 

1  2.89E-3,2.92E-3,2.74E-3,2.46E-3,2.10E-3,1.71E-3,1.35E-3, 
21.09E-3,8.60E-4,6.606-4,5 . 15E-4.4. 106-4 ,3.20E-4,?.51E-4, 


CC 

CC 


CC 

CC 


CC 

CC 


AERSOL 

116 

AERSOL 

117 

AERSOL 

118 

AERSOL 

119 

AEROKO 

2 

AERSOL 

121 

AERSOL 

122 

AERSOL 

123 

AERSOL 

124 

AERSOL 

125 

AERSOL 

126 

AERSOL 

127 

AERSOL 

128 

AERSOL 

129 

AERSO. 

i?0 

AERS'-L 

131 

AERSC- 

132 

AERSOL 

133 

AERSOL 

13* 

AERSOL 

135 

AERSOL 

136 

AERSOL 

137 

AERSOL 

138 

AERSOL 

139 

AERSOL 

140 

AERSOL 

141 

AERSOL 

142 

AERSOL 

143 

AERSOL 

144 

AERSOL 

145 

AERSOL 

146 

AERSOL 

1«7 

AERSOL 

148 

AERSOL 

149 

AERSOL 

150 

AERSOL 

151 

AERSOL 

1S2 

AERSOL 

153 

AERSOL 

154 

AERSOL 

155 

AERSOL 

156 

AERSOL 

157 

AERSOL 

153 

AERSOL 

15R 

AERSOL 

160 

AERSOL 

161 

AERSOL 

16? 

AERSOL 

163 

AERSOL 

164 

AERSOL 

165 

AfRSOL 

166 

AERSOL 

167 

AERSOL 

168 

AERSOL 

169 

AERSOL 

170 

AERSOL 

171 

AERSOL 

172 

240 


32.10E-4.1.24E-4.7.60E-5/ 

AERSOL 

173 

DATA(SCATC(I,l),l=l,12)/4.0SSE-2,2.570E-2,1.560E-2,9.3aeE-2. 

AERSOL 

174 

16.321E-j,6.003E-3,6.274£-3,6 .232E-3.5. 103E-3.4.030C-3, 

AERSOL 

175 

22.420E-3.1 .449E-3/ 

AERSOL 

176 

0ATA(AB$O8C( 1,1), I*l,12)/1 .282E-3.1 . 574E-3.2. 894E-3.4.03OE-3, 

AERSOL 

177 

l$.878£-2,7.671£-2,8.300£-2,7.917£-2,6.019E-2,5.391E-2, 

AERSOL 

178 

24.552E-2.4.132E-2/ 

AERSOL 

179 

cc 

OATA(ASTMC( 1,1), 1*1, 12)/. 3223. .2686,. 2233,. 1916,. 1580,. 1416. 

►  FT  SOL 

180 

cc 

1.1299,. 1242,. 1108,. 0983,. 0780,. 0629/ 

AERSOL 

lfil 

DATA! SCATCf 1,2),I *1 ,12)/1.353E-1 ,1 .020E-1 ,7 . 792E-2.6. 343E-2, 

AERSOL 

1b2 

15.126E-2.4 .26?E-2,3.761E-2,3.435£-2,2.913E-2,2.394E-2, 

AERSOL 

183 

21.775E-2.1.204E-2/ 

AERSOL 

184 

0ATA(ABS08C( I ,2), 1*1 ,12)/1 .01y£-2,8.668E-3,8.429E-3,8.424E-3, 

AERSOL 

IBS 

19.493E-3.9.361E-3.7.431E  -3,6.537E-3,4.B79E-3,3.487E-3, 

AERSOL 

186 

23.186E-3.3  347E-3/ 

AERSOL 

187 

cc 

OATA(ASYMC( I, 2). 1*1, 12)/. 5561, 5255,. 4958,. 4729,. 4401,. 4196,. 

AERSOL 

188 

cc 

14015.. 39 15. .3699. .3490 , .3125, .2773/ 

AERSOL 

189 

DATA(SCATO( I ) , I *1,12 ) /4.822E-1 ,4. 160E-1.3. 574E-1 ,3. 162E-1, 

AERSOL 

190 

12.645E-1 ,2. 367E-1.2. 147E-1 .2.042E-1 ,1 .845E-1 .1.700E-1 , 

AERSOL 

191 

21.509E-1.1.378E-1/ 

AERSOL 

192 

0ATA(AB5080(I),I*l,12)/6.161E-2,7.539E-2,8.943E-2,1.0O5E-l, 

AERSOL 

193 

11.161E-l,1.254E-l,1.331E-1.1.368E-l,l.435E-l,1.472E-l; 

AERSOL 

194 

21.463E-1.1 .373E-1/ 

AERSOL 

195 

cc 

DATA(ASTH)U). 1-1,12)/. 6989,. 7046.. 7099..  7133,. 7159,. 7155, 

AERSOL 

196 

cc 

1.7134,. 7116,. 7068,. 6986,. 6827,. 6687/ 

AERSOL 

197 

DATA{  SCAl.5(I )  ,1  -l,15)/3. 32E-5.1 .65E*5,8.00E-6,4.02E-6, 

AERSOL 

198 

12.10£-6.1.09E-6,5.7fl£-7,3.05E-7,1.60E-7,6.95E-8,2.90E-8. 

AERSOL 

199 

21 .20E-8,5.10E-9,2.15E-9,9.30E-10/ 

AERSOL 

200 

c 

AERSOL 

201 

c 

AERSOL 

202 

c 

AERSOL 

203 

IF(  (LANOA  .SE.  2.0)  .AND.  (LAKOA  .IE.  5.0)  )  GO  TO  1000 

AERSOL 

204 

WRITE(6.90C)  LAHDA 

AERSOL 

205 

900  FORMAT  (IX, ‘SUBROUTINE  AERSOL  HAS  BEEN  ENTERED  WITH  LAMDA  —1PE12.  AERSOL 

206 

J5*.  WHICH  IS  OUTSIDE  the  ALLOWED  RANGE  (2.0  TO  5.0  MICRONS).*/* 

ZE  AERSOL 

207 

IRO-VALUES  have  BEEN  ASSIGNED  TO  THE  OUTPUT  PARAMETERS  XKSCT  AND 

XK  AERSOL 

208 

SA8S.*) 

AERSOL 

209 

GO  TO  11 

AERSOL 

210 

1000  CONTINUE 

AERSOL 

211 

H  -  1.0E-05  *  HCM 

AERSOL 

212 

IF(H  AT.  0.)  STOP 

AERSGL 

213 

IF(  H.GT.100.  )  GO  TO  11 

AERSOL 

214 

IF(  H.GT.  30.  ]  GO  TO  4 

AERSOL 

215 

IF (  H.GT,  9.0  )  GO  TO  3 

AERSOL 

216 

IF(  H.GT.  2.0  )  GO  TO  2 

AERSOL 

217 

c 

AERSOL 

218 

c 

ALTITUDE=0-2  KM 

AERSOL 

219 

c 

AERSOL 

220 

1  DO  8  J*2,4 

AERSOL 

221 

IF (  H.GE.HITE(O)  )  SO  TO  8 

AERSOL 

222 

COMON=(H-HITE(J-l))/(H[TE(0)-H!TE(O-l)! 

AERSOL 

223 

ASCAL»SCAL1(0-1,KVI  S)-(SCALl  (0-1  ,KVI  S)-SCAL1(  J,XV  IS)  )*COK)N 

AERSOL 

224 

GO  TO  5 

AERSOL 

225 

8  CONTINUE 

AERSOL 

226 

IF (  H.EQ.2.0  )  A5CAL  -  SCAL1(4,KV1S) 

AERSOL 

227 

5  00  6  J*2,12 

AERSOL 

228 

If (  L*74DA.ST.WAVE(J)  )  SO  TO  6 

AERSOL 

229 

241 


COMO*  ( LAW -WAVE  (J-!  >  >  /  f  WAV?  [  J'.-WAVE(  J-l  M 

<KSCT=S'*TA(  J-l,KB'YPEMSCAT4'0-l,KPTYPE'-$CATA(3,i;P'YPfri*C0*nN 
XAABS=AdS05A'J-1.KPTYPEM46S0BA(  M,XOtyP;\-A8SOBA(  J.rPTYPE'! 
I'COMOS 

CC  GBAR^ASWj'  J-l.AFTYPr'.  AS’WA,  J-l.APTYPP l-ASY^A! O.KPTVPt'' \«COHOS 
GO  TO  100 

6  CONTINUE 

c 

C  ALTITUDE =>.9 

c 

2  lH'N-1 .0 
HJ=IH*X 

J  =  2 

IF  f  rVIS.EQ.l  1  J  •  1 
IF (  H.KE.9.0  1  GO  TO  12 
ASCAL  =  SCAL2'b,J) 

GO  TO  13 

12  ASCAL  =  SCAl2fIH,0!.(SCAL2fIW,J!-SCAL2riF»l>J)l*fH-«!' 

13  DO  7  J=2,l? 

Iff  tAMDA.GT.WAVEIJt  1  GO  TO  ? 

CO*ON  =  r  LAW-WAVE!  3-1')/ ( WAVE!  JUWAVE!  J-l'l 
XKSCT=SCATB(  J-r-<5CATBfO-ll-SCATB(J))*CO*l3N 
X<A8S=A3SOB5fU-l)-(ABS09B! J-I 1-ABS0B8' J) )*COMON 
CC  GBA^ASYMB!  J-15-(ASY"8(  J-11-ASTME;  J)Y*CONON 
GO  TO  100 

7  CONTINUE 

c 

C  AIT1TL!DE<=9.30  AM 
C 

3  IH=h-B.C 
H] *!K+8 

1F(  h.nE.30.  1  GO  TO  ! A 
FBG  »  SCAL3( 22) 

VOlC  »  SCALAJ22; 

GO  TO  15 

14  F8G  =  SCAL3']MMSCAL3!!H>-SCAl3'!h*1'!*'H-“!'. 

V0LC^SCAL4;  IHl-(  SCAL4!  IM)*SCALA!  I ' 

15  DO  9  J=2,12 

Iff  LAMBA.G\WAYE!J)  )  GO  TO  9 
COMON= ; L AMOA-WAVE  ( J- 1 ) 1 / ' WAVE  f  J'  -WAVE ' J-l 1 ' 
««5CT1-SCATC!J-1,1I-!SCATCI  J-l,l'-SCATL'vM''*COMON 
XKSCT2=SCATCf  0-l,2I.($CATCf  0-l,2’l-SCATC  3,2'  '*CQ**3N 
*KAPS!-A8S0BCf  J-1,1)-(APSOSCU1-1,1)-A“509C;  J,1  ''•COW 
XKA852*AES08C(  J-l,2)-( ABSOBC !  J-l ,?!- ABSOBC!  0,2' 1*C0*A0N 
XKSCT-XASCT1*FBG‘XASCT?*V01C 
XkA5S=XXAB<1»FBG*XKABS?*V0LC 

CC  GBAP  l=ASYMC  1 3- 1 ,1 '  - !  ASYHC 1  J- 1 ,1 1  -  ASYMC  i  3 ,1 1  '♦CO“ON 
CC  G8AS  2  =A5Yyc  f  J- !,?'  —  { ASVtl  '3-1,21-  AS¥MC 1 3, 2 1 '  *CO*ON 
CC  GBAR-(XKSCT1*G3AP1*XXSCT2*GBA=2'/'XKSC,1*XKSCt?' 

GO  TO  105 
9  CONTINUE 
r 

C  ALTITUDE  15  G* EATEN  THAN  30  A“ 

C 

4  IH«f (H-30.0) 75 .0) *1 .01 
H!  =  !IH*5W25 

IF<  h.NE.100.  ;  GO  TO  16 


GO  TO  14 


ASCAL  =  $CAL5( 15) 

AERSOL 

707 

GO  TO  17 

AE°SPL 

?PR 

16 

ASCAL  =  SC AL  5 ( IH)- ( SCAL5{ !H  1-SCAL5! IH+1 ) )*I H-HI )/5 .0 

AERSOL 

789 

17 

00  10  J*2,l? 

AERSOL 

?yo 

IF {  LAHPA.GT.WAVffOl  )  GO  TO  10 

AERSOL 

291 

COMON = ( L AMDA-WAVE  f  J- 1 ) 1 /(UAVEf  Jl-WAVEf  J-l 1 ) 

APR  SOL 

?9? 

XKSCT*SCATP(J-1  l-[SCATn(J-l  1-3CAT0I  J)  )*COMON 

AFRSOL 

793 

XKAB5=ABSOB0(J-I)-(A3SO8D( J-1)-A8S0BD(  JD'COMON 

AERSOL 

294 

CC 

GBAR=ASYMD( J-l )-( ASTMO  (  J  1 J-ASYMOl J)  l*COMON 

AERSOL 

795 

GO  TO  100 

AERSOL 

296 

ir 

CONTINUE 

AERSOL 

29  7 

100 

7iiABS  =  XKABS*ASCAL 

AERSOL 

79R 

XKSCT=XKSCT*ASCAL 

AERSOL 

299 

GO  TO  105 

AERSOL 

300 

11 

XKABS  *  0.0 

AERSOL 

301 

XKSCT  =  0.0 

AERSOL 

30? 

CC 

GBAP  =  0.0 

AERSOL 

303 

105 

XKABS  =  1.0E-05  *  XKABS 

AERSOL 

30A 

XKSCT  ■=  l.OE-05  *  XKSCT 

AERSOL 

305 

RETURN 

AERSOL 

306 

END 

AERSOL 

307 

SUBROUTINE  AGAGE0{HA1 ,GC1 ,GL 1 ,AZ?1 ,GA?1,HA?,GC?.GL?) 

AGAGEO 

? 

CC  C 

AGAGEO 

3 

c 

SUBROUTINE  AGAGEO  (A  MODIFIED  HARC  ROUTINE),  GIVEN  THE 

AGAGEO 

4 

c 

GEOGRAPHIC  COORDINATES  OF  POINT  1,  THE  AZIMUTH  AND  EARTH-CENTRAL 

AGAGEO 

5 

c 

ANGLE  OF  POINT  2  WITH  RESPECT  TO  POINT  1.  AND  THE  HEIGHT  OT 

AGAGEO 

6 

c 

POINT  2,  PROVIDES  THE  GEOGRAPHIC  COORDINATES  OF  POINT  2. 

AGAGEO 

7 

ccc 

AGAGEO 

8 

c 

INPUTS  FROM  CALL  STATEMENT 

AGAGEO 

9 

c 

HA1  -  ALTITUDE  OK  POINT  1,  CM 

AGAGEO 

10 

c 

GC1  -  COLATITUOE  OF  POINT  1,  RADIANS 

AGAGEO 

n 

c 

GLl  =  EAST  LONGITUDE  OF  POINT  1,  RADIANS 

AGAGEO 

i? 

c 

AZ71  =  AZIMUTH  ANGLE  OF  POINT  2  RELATIVE  TO  PO’NT  I,  RADS 

AGAGEO 

13 

c 

GA71  =  GEOCENTRIC  ANGLE  OF  POINT  ?  RELATIVE  Tf  NT  1,  RAD 

AGAGEO 

14 

c 

HA?  =  ALTITUDE  OF  POINT  ?,  CM 

AGAGEO 

16 

c 

OUTPUTS 

AGAGEO 

16 

c 

1C?  =  COLATITUDE  OF  POINT  ?,  RADIANS 

AGAGEO 

17 

c 

GL?  =  EAST  LONGITUDE  OF  POINT  2,  RADIANS 

AGAGEO 

18 

ccc 

AGAGEO 

19 

DATA  PI, RE  /  3.141592653590,6. 37103E+08  / 

AGAGEO 

20 

ccc 

AGAGEO 

21 

1 F (  GA21.EQ.0.0  )  GO  TO  100 

AGAGEO 

2? 

R1  *  3E+HA1 

AGAGEO 

23 

R2  -  RE*HA2 

AGAGEO 

24 

SRI?  =  SQRT(R1*R1  ♦  R2*R2  -  ?.*P.1*R2*C0S(GA?1 ) ) 

AGAGEO 

25 

IF(  SR12.EO.O.O  )  GO  TO  100 

AGAGEO 

26 

SINXI  ■  R?*SIN(GA?1)/SR1? 

AGAGEO 

27 

COSX!  *  (SR12**?  *  Rl«?  -  R?**2)/f2.*SR12*Rli 

AGAGEO 

28 

XI  -  ATAN?(  SINXI.COSXI  ) 

AGAGEO 

29 

HALFP I  =  P 1 / 2 . 

AGAGEO 

30 

EL 2 1  -  XI-HALFPI 

AGAGEO 

3! 

CALL  REATANf SR  12, El?l ,»Z2i ,XE .YN.ZV) 

AGAGEO 

3? 

CALI  TANGEOf  HA) ,GC1 ,GL1,XF.YN,ZV,HA22,GC2,GL?) 

AGAGEO 

3  3 

99 

RETURN 

AGAGEO 

34 

100 

GC2  =  GC1 

AGAGEO 

3C 

GL?  "  G!  ' 

AGAGEO 

if 

Go"  TO  91 

AGAGL'n 

V 

END 

AGAGEO 

3? 

SUBROUTINE  ATMRAD  (  LOGIC,  ISHELL,  XFRAC,  DS,  LBINT  ) 

ATMRAD 

2 

c 

ATMRAD 

3 

c 

•ATMRAD*  COMPUTES  THE  ATMOSPHERIC  VOLUME  EMISSION  ON  AN  OPTICAL 

ATMRAD 

4 

c 

PATH. 

ATMRAD 

5 

c 

ATMRAD 

6 

CLO 

INPUT  PARAMETERS 

ATMRAD 

7 

CLJ 

ARGUMENT  LIST 

ATMRAD 

8 

CL  J 

LOGIC 

m 

LOGICAL  VARIABLE 

ATMRAD 

9 

CIO 

X 

•  TRUE.  ON  FIRST  ENTRY  FROM  SUBROUTINE  TRNSCO 

ATM!  AD 

10 

CLJ 

(AND  IS  RESET  TO  .FALSE.  IN  ATMRAD). 

ATMRAD 

11 

CLJ 

X 

■  FALSE.  ON  SUBSEQUENT  ENTRIES  ALONG  THE  SAME  PATH 

ATM*  AO 

12 

CLJ 

ISHEtL(l) 

X 

INDX(I)  IN  CALL  FROM  TRNSCO 

ATMRAD 

13 

CLJ 

I  SHELL { 2 ) 

* 

INDX(I+1)  IN  CALL  FROM  TRNSCO 

ATMRAD 

14 

CLO 

1SHEL.K3 ) 

- 

USED  IN  EVALUATING  THE  LOGICAL  VARIABLE  TEST. 

ATMRAD 

15 

CLJ 

WILL  TYPICALLY  BE  EQUAL  TO  INDX(]+2),  A  POSITIVE 

ATMRAD 

16 

CLJ 

QUANTITY  EXCEPT  ON  THE  LAST  CALL  TO  ATMRAD  WHEN 

ATMRAD 

17 

CLJ 

THE  LAST  PATH- SEGMENT  IS  BEING  TREATED  AT  WHICH 

ATMRAD 

18 

CLJ 

TIME  I SHELL (3)  WILL  BECOME  EQUAL  TO  !NDX(NC+D 

ATMRAD 

19 

CLJ 

WHICH  HAD  BEEN  SET  TO  0  IN  SUBROUTINE  STEP. 

ATT*  AD 

20 

CLJ 

X  TRAC'D 

■ 

XFRACS(I)  IN  CALL  FROM  TRNSCO 

ATMRAD 

21 

CLJ 

XFRAC(2) 

* 

XfRACS(I+D  IN  CALL  FROM  TRNSCO 

ATM*  AD 

22 

CLJ 

NOTE...  TO  UNDERSTAND  THE  VALUES  AND  USES  OF 

ATMRAD 

23 

CLJ 

XFRACF(I),  RECALL  THAT  THE  TOTAL  PATH  HAS  NC-1 

ATM*  AD 

24 

CLJ 

SEGMENTS  AMD  NC  ENDPOINTS  OF  THESE  SEGMENTS. 

ATMRAD 

25 

CLJ 

XFRACS(I)  U'l.NC)  IS  THE  WEIGHT  ASSOCIATED  WITH 

ATM*  AD 

26 

CLJ 

THE  I-TH  ENDPOINT  APPROPRIATE  FOR  FINDING  AT  THAT 

ATMRAD 

27 

CLJ 

POINT  THE  LINEARLY- INTERPOLATED  VALUE  Of 

ATMRAD 

28 

CLJ 

PARAMETERS  —  SUCH  AS  TEMPERATURE  AND  PRESSURE 

ATMRAD 

29 

CLJ 

(OR  EVEN  ALTITUDE)  -  WHICH  ARE  SPECIFIED  AT  THE 

ATM*  AD 

30 

CLJ 

TWO  SHELL  BOUNDARIES  ADJACENT  TO  THE  I-TH 

ATMRAD 

31 

CLJ 

ENDPOINT. 

ATM*  AD 

32 

CLJ 

FOP  VERIFICATION  OF  THIS  INTERPRETATION,  SEE  THE 

ATMRAD 

33 

CLJ 

USAGE  OF  XFRAC(l)  AND  XFRAC(P)  IN  SUBROUTINE 

ATMRAD 

34 

CLO 

ATMRAD  FOR  OBTAINING  ALTITUDE  AND  TEMPERATURE  AT 

ATMRAD 

35 

CLO 

FRONT  AND  BACK  OF  CELL  DS.  THE  SAME  CONCLUSION 

ATM?  AD 

36 

CLO 

MAY  BE  DRAWN  FROM  THE  USAGE  OF  XERACS(l)  AND 

ATMRAD 

37 

CLJ 

XFRACS(2)  IN  SUBROUTINE  PATH. 

ATMRAD 

38 

CLJ 

CONSIDER  A  HYPOTHETICAL  EXAMPLE  WITH  HSHELL!  I  )=0., 

ATMRAD 

39 

CLJ 

1. ,3.  FOR  1-1,2, 3, 4  AND  45-DEGREE  PATH  FROM 

ATM?  AD 

40 

CLO 

ALTITUDE  1.9  TO  2.9  KM.  THEN  NC*3  AND  WE  HAVE  THE 

ATMRAD 

41 

CLJ 

FOLLOWING  VALUES  FOR  THE  ARRAYS. 

ATM*  AD 

42 

CLJ 

I  DS( I )  XERACS(I)  INDEX ( I ) 

ATMRAD 

43 

CLJ 

-  -  - - -  -  - - 

ATMRAD 

44 

CLO 

1  0.0  0.1  2 

ATMRAD 

45 

CLJ 

2  0.1414  1.0  3 

ATM!  AD 

46 

CLJ 

3  1.2728  0.9  4 

ATMRAD 

47 

CLJ 

4  -1.0  0 

ATM*  AD 

48 

CLJ 

ATMRAD 

49 

CLJ 

DS 

■ 

DSO+l)  IN  CALL  FROM  TRNSCO 

ATMRAD 

50 

CLJ 

NOTE...  IT  IS  ALWAYS  TRUE  THAT  DS(1)*0  AND 

ATMRAD 

51 

CLJ 

DS(NC*1)*-1 . ,  WHERE  NC  IS  THE  NUMBER  OF  PATH 

ATM*  AD 

52 

CLJ 

SEGMENTS  PLUS  ONE.  ATMRAD  WILL  NOT  BE  CALLED 

ATMRAD 

53 

CLJ 

WITH  l-NC.  (CM) 

ATM*  AD 

5« 

CLJ 

LBINT 

■ 

WORD  NO.  5  IN  GRC'S  DATASET-BN  (NO.  114). 

ATMRAD 

55 

CLJ 

STRICTLY,  LBINT  IS  THE  POINTER  (I.E.,  CONTAINS  THE 

ATMRAD 

56 

CLJ 

(Q-ARRAY)  ADDRESS'  FOR  THE  LIST  HEADER  OF  THE 

ATMRAD 

57 

CLJ 

BAND- INTERVAL  OAT„SET$-BI  CORRESPONDING  TO 

ATMRAD 

58 

244 


cu 

DATA  srr- BN. 

ATM*  AD 

59 

CLJ 

XYZCOM  COMMON 

ATMRAD 

50 

CU 

FACT  *  PATH  RESOLUTION  FACTOR  CONTROLLING  THE  NUMBER  OF 

ATWIAD 

61 

CLJ 

ALTITUOES  AND  SPACING  USED  IN  SUBROUTINE  SHaLS. 

ATMRAD 

62 

CLJ 

SET  IN  DRIVER  PROGRAM.  HERE  IN  SUBROUTINE  ATMRAD, 

ATMRAD 

63 

CIO 

FACT  IS  USED  TO  SET  TOL,  WHICH  IS  USED  TO  TEST 

ATMRAD 

64 

CLJ 

TEMPERATURE  DIFFERENCES  ACROSS  CELLS. 

ATMRAD 

65 

CLJ 

HSHaL(J)  -  ALTITUDE  BOUNDARY,  CM  (0*1, NS)  (HSHaL (1  )»0. ) 

ATMRAD 

66 

CLJ 

TS(J)  «  TEMPERATURE  AT  ALTITUDE  BOUNDARY  J,  DEG  K 

ATMRAD 

67 

CLJ 

U(I,N,2)  *  CUMULATIVE  VALUE  OF  PATH  PARAMETER  U  (AREAL 

ATMRAD 

68 

CLJ 

DENSITY)  FOR  TEMPERATURE- INDEX  I  AND  SPECIES  N  AT 

ATMRAD 

69 

CLJ 

END  OF  LINE  SEGMENT  DS,  CM  AT  STP 

ATMRAD 

70 

CLJ 

UP(I,N,2)  •  CUMULATIVE  VALUE  OF  PATH  PARAMETER  UP  (PRODUCT  OF 

AT*  AD 

71 

CLJ 

U  AND  PRESSURE  P)  FDR  TEMPERATURE- INDEX  I  AND 

ATMRAD 

72 

CLJ 

SPECIES  N  AT  END  OF  LINE  SEGMENT  DS,  ATM-CM 

ATMRAD 

73 

CLJ 

AT  STP  FOR  U  AND  UP  (1*1,2  ,  N*l,10) 

ATMRAD 

74 

CLJ 

MMOLS  *  NUMBER  CF  SPECIES.  SET  IN  DRiVER. 

ATMRAD 

75 

CLJ 

LTMTE  *  BINARY  FILE  CONTAINING  THE  BAND-MODEL  PARAMETERS 

ATMRAD 

76 

CLJ 

WHICH  WERE  DERIVED  IN  SUBROUTINE  TRAN  SB  FROM  THE 

ATMRAD 

77 

CLJ 

BASIC  5- (1 /CM) -RESOLUTION  DATA.  HERE  IN 

ATMRAD 

78 

CLJ 

SUBROUTINE  ATMRAD,  FILE  LTMTE  IS  REWOUND  FOR  USE 

ATWAD 

79 

CLJ 

IN  SUBROUTINE  TRANS. 

ATMRAD 

BO 

CLJ 

OPTION  COMMON 

ATMRAD 

81 

CLJ 

TRNSOPT  -  LOGICAL  VARIABLE  AFFECTING  COMPLEXITY  OF  MOLECULAR 

ATMRAD 

82 

CLJ 

TRANSMITTANCE  CALCULATION  (SEE  SUBROUTINES  TRANSE 

ATMRAD 

83 

CLJ 

AND  TRANS).  IN  SUBROUTINE  ATMRAD,  TRNSOPT  IS  USED 

ATMRAD 

84 

CLJ 

ONLY  IN  THE  ARGUMENT  LIST  FOR  THE  CALL  TO 

ATMRAD 

85 

CLJ 

SUBROUTINE  TRANS. 

ATMRAD 

86 

CLJ 

DATASET  BI  (BANO- INTERVAL  DATASET,  NO.  US) 

ATMRAD 

87 

CLJ 

Q(l)  -  8NL0  BI  -  LOW  WAVELENGTH  FOR  WAVELENGTH-BAND- INDEX 

ATMRAD 

88 

CLJ 

J.  MICRONS 

ATMRAD 

89 

CLJ 

Q(2)  *  BNHI  BI  -  HIGH  WAVELENGTH  FOR  WAVELENGTH- BAND- 

ATMRAD 

90 

CLJ 

INDEX  J,  MICRONS 

ATMRAD 

91 

CLJ 

Q(3)  *  WLO  BI  *  LOW  WAVENUMBER  FOR  WAVELENGTH-BAND- INDEX 

ATMRAD 

92 

CLJ 

J,  CM- 1 

ATMRAD 

93 

CLJ 

0(4)  *  WH1  BI  *  HIGH  WAVENUMBER  FOR  WAVELENGTH-BAND- 

ATMRAD 

94 

CLJ 

INDEX  J,  CM-1 

ATMRAD 

96 

CLJ 

OUTPUT  PARAMETERS 

ATMRAD 

96 

CLJ 

DATASET  BI 

ATMRAD 

97 

CLJ 

0(5)  •  BKGNO  BI  ■  IN-BAND  RADIANCE  TO  BACK  OF  CELL  DS, 

ATMRAD 

98 

CLJ 

NATTS/(CM»*2  SR  BAND) 

ATMRAD 

99 

CLJ 

0(7)  •  TRANS  81  -  PRODUCT  OF  MOLECULAR  AND  AEROSOL 

ATMRAD 

100 

CLJ 

TRANSMITTANCE  TO  BACK  OF  CELL  DS 

ATMRAD 

101 

CLJ 

Q(8)  *  IDSBX  BI  *  CUMULATIVE  AEROSOL  TRANSMITTANCE  TO 

ATMRAD 

102 

CLJ 

BACK  OF  CELL  DS 

ATMRAD 

103 

CLJ 

**•  NOTE  **»  THIS  IS  THE  SECOND  OF  TWO  TEMPORARY  USES  OF 

ATMRAD 

104 

CLJ 

***  WORO-B  (AND  NOT  THE  GRC  DICTIONARY  USE  OF 

ATMRAD 

105 

CLJ 

**•  WORD-8).  HERE,  IT  IS  USED  TO  CARRY 

ATMRAD 

106 

CLJ 

***  INFORMATION  TO  SUBROUTINE  UPVELL. 

ATMRAD 

107 

CLJ 

ATMRAD 

108 

CLJ 

WE  ALSO  NOTE,  FOR  COMPLETENESS  OF  DATASET  BI, 

ATTRAO 

109 

CLJ 

Q(6)  •  TFIAG  BI  -  SEE  SUBROUTINE  TRAN  SB  FOR  DEFINITION. 

ATMRAD 

no 

CLJ 

ATMRAD 

m 

COMMON  ONAREA,  QWAREA(IO),  QFREHC ,  ONDTST,  QNLNKS,  QZSI7E, 

ATMRAD 

112 

1  ONZBLK,  DZHEAD,  QCOUNT{30),  QOSIZE(IO),  QNSIZE,  QLUNIT(IO), 

ATTRAD 

113 

2  QERLUN,  QEBIT5(2,10),  0(1) 

ATMRAD 

114 

COMMON  /  XYZCOM  /  ITMTE,  LTMTE,  NS.  H SHELL (81 ) ,  TS(81),  PS(81), 

ATMRAD 

115 

245 


1  XNSPEC(81,10),  U{  10,10,3),  UP(10.10.2),  tWOLS, 

2  FACT 
COMMON  /  OPTION  /  TRNSOPT 

DIMENSION  TAU(IO),  ABC  (TO),  ISHELL{3).  XFRAC(2) 

DIMENSION  BNLO  BI(1),  BNHI  BI(1),  ULO  Bl(l),  WH!  81(1). 

*  BAGNO  Bl(l).  TFLAG  BI(1),  TRANS  B!(l),  IDSBX  BI(1) 

DIMENSION  TDST  B* ( 1 ) .  BELTS  BX(1),  A8CLD  BX(1),  UVRB  BX(1), 

•  XKABS  BX{1) 


EQUIVALENCE  (  Q(3).  BNLO 
*  (  0(3).  WLO 


31  ).  (  0(2).  BNHI  B1  ). 
81  ).  (  0(4),  WHI  BI  ). 

(  Q(5),  8KGND  Bl  ),  (  0(6).  TFLAG  Bl  ), 

*  (  0(7),  TRANS  BI  ).  (  Q(8) ,  IDSBX  BI  ) 

EQUIVALENCE  (  Q(l),  TDST  BX  ),  (  0(2),  CELTS  BX  ). 

(  0(3).  ABCLD  BX  ),  (  Q(4),  UVRB  BX  ), 


ATM?  AD 
ATMRAD 
ATMRAD 
ATMRAD 
ATM!  AD 
ATMRAD 
ATMRAD 
ATMRAD 
ATMt  AD 
ATMRAD 
ATMRAD 
ATMRAD 
ATMRAD 
ATMRAD 
ATM!  AD 


116 
117 
1  IB 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 


* 

(  0(5),  XKABS  BX  ) 

ATMRAD 

131 

CLJ 

ATMRAD 

132 

CLJ 

DATASET-BX  USED  HERE  IN  SUBROUTINE  ATMRAD  IS  A  TEMPORARY 

ATMRAD 

133 

CLJ 

FIVE-WORD  DATASET  WHICH  SHOULD  NOT  BE  CONFUSED  WITH  THE 

atmiad 

134 

CLJ 

FIFTEEN-WORD  DATASET-BX  (NO.  118)  USED  IN  THE  GRC  DICTIONARY 

ATMRAD 

135 

CLJ 

OF  DATASETS. 

ATMIAD 

136 

CLJ 

DATASET-BX  PROVIDES  VARIOUS  PROPERTIES  AT  THE  FRONT  OF  THE 

ATMRAD 

137 

CLJ 

CURRENT  CELL  DS. 

ATMIAD 

138 

CLJ 

Q(l)  *  TDST  BX  ■  CUMULATIVE  AEROSOL  TRAN911TTANCE  TO 

ATMRAD 

139 

CLJ 

FRONT  OF  CURRENT  CELL 

ATMIAD 

140 

Cl  J 

Q(2)  *  OELTSBX  «  LENGTH  OF  LAST  CELL  (OR  CELLS)  IF  IT  (OR 

ATMRAD 

141 

CLJ 

THEY)  WAS  (OR  WERE)  SKIPPED  OVER  BECAUSE 

ATMIAD 

14? 

CLJ 

TEST  =  .TRUE.  ,  CM 

ATMRAD 

143 

CLJ 

Q(3)  *  A6CLDBX  =■  OPTICAL  DEPTH  AT  FRONT  OF  CURRENT  CELL, 

ATMRAD 

144 

CLJ 

DIMENSIONLESS 

ATMRAD 

145 

CLJ 

0(4)  =  UVRB  BX  =  MOLECULAR  ABSORPTION  COEFFICIENT  AT 

ATMIAD 

146 

CLJ 

FRONT  OF  CURRENT  CELL  DS,  1/CM 

ATMRAD 

147 

CLJ 

q(5)  •  XKA8SBX  *  AEROSOL  ABSORPTION  COEFFICIENT,  1/CM 

ATMIAD 

14B 

C 

ATMRAD 

149 

LOGICAL  TRNSOPT,  LOGIC,  TEST 

ATMRAD 

150 

C 

ATMRAD 

151 

Ll 

*  I  SHELL  (1 ) 

ATMRAD 

152 

L? 

-  I SHELL (2) 

ATMRAD 

153 

CLJ 

HSF.HSB  AND  TFRONT, TBACK  ARE,  RESPECTIVELY,  TMF  ALTITUDES 

ATMRAD 

154 

CLJ 

AND  TEMPERATURES  AT  THE  FRONT  AND  BACK  OF  THE  CURRENT  CELL  DS 

ATMRAD 

155 

CLJ 

CORRESPONDING  TO  0S( 1 *1 ) .  CM  AND  DEG  K 

ATM.  AD 

156 

IF 

LOGIC  )  HSE  *  XFRAC(l)  *  HSHELL(Ll)  ♦  (  1.  -  XFRAC(l)  )  • 

ATMRAD 

157 

i 

HSHELLU2) 

ATMRAD 

158 

HSB 

«  XFRAC(2)  *  HSHELL ( L2 )  ♦  (  1.  -  XFRAC(2)  )  *  H SHELL ( Ll ) 

ATMRAD 

159 

IF 

(  LOGIC  )  TFRONT  ■=  XFRAC(l)  *  TS(L1 )  ♦  (  1.  -  XFKAC(l)  1  * 

ATMRAD 

160 

J 

TS(L2) 

ATMRAD 

161 

TBACK  *  XFRAC(?)  *  TS(L2)  ♦  (  1,  -  XFRAC(21  )  *  TS(Ll) 

ATMRAD 

16? 

CLJ 

SET  FILE  POSITION  FIlPOS  FOR  USE  IN  SUBROUTINE  TRANS. 

ATMRAD 

163 

FILPOS  *  1.E4 

ATMIAD 

164 

CLJ 

TEST  =  .TRUE.  PROVIDED  THE  TEMPERATURE  CHANGE  ACROSS  A  CELL  IS 

ATMRAD 

166 

CLJ 

LESS  THAN  ONE  PERCENT  (FOR  THE  STANDARD  ATMOSPHERIC  SHELL 

ATMIAD 

166 

CLJ 

SPACING  SET  BY  FACT-1 )  AND  PROVIDED  IT  IS  NEITHER  THE  FIRST 

ATMRAD 

167 

CLJ 

NOR  LAST  CALL  TO  ATMRAD. 

ATMIAD 

16? 

CLJ 

*»*  NOTE  ***  GRC  (IN  PROGRAM  ATKGEN)  SETS  TACT  TO  10.0  IF 

ATMRAD 

16Q 

CLJ 

TRNSOPT  ■  .TRUE. 

ATMIAD 

170 

TOL 

•  0.01  *  SORT(  FACT  ) 

ATMRAD 

171 

TEST  •  ABS(  T FRONT  -  TBACK  )/  TFRONT  .LT.  TOL  .AND. 

ATMIAD 

172 

?.  4b 


CLJ 


CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 


CLJ 

CLJ 

CLJ 

CLJ 


CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 


CLJ 

CLJ 

CLJ 


C 

C 

CLJ 

CLJ 


CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 


s 

I SHELL! 3)  ,GT .  0  .AND.  .NOT.  LOGIC 

ATM  AD 

1  T> 

LOOP  OVER  SPECTRAL  BAND- INTERVALS  IN  INCREASING  WAVENUMBERS. 

ATMRAD 

i?4 

LINT  -  LBINT 

ATM  AD 

175 

CALL  ME V  (  LINT,  J  ) 

ATMRAD 

176 

IF 

(  J  .EQ.  0  )  GO  TO  10 

ATM  AD 

177 

CREATE  A  5-WORD  DATASET  WITH  INDEX  JJ.  (IN  OTHER  WORDS,  JJ  IS 

ATMRAD 

178 

THE  ADDRESS  OF  THE  FIRST  OF  THE  FIVE  WORDS.) 

ATM  AD 

179 

IF 

(  LOGIC  )  CALL  CREATL  (  5,  JJ  ) 

ATMRAD 

180 

CALL  TO  DSPWRD  RETURNS  ADDRESS.  IDSBX  BI(J)  (WHICH  IS  STORED 

ATM  AD 

181 

AS  WORD-8  OF  DATASET-BI),  OF  DSP  WORD  FOR  THE  DATASET-BX  WHOSE 

ATMRAD 

18? 

FIRST-WORD  ADDRESS  IS  JJ  (ALL  FOR  EACH  J).  (IN  OTHER  WORDS, 

ATM  AD 

183 

10SBX  SI ( J)  IS  the  POINTER  TO  THE  DSP  WORD  FOR  THE  DATASET-BX. 

ATMRAD 

184 

)  THIS  IS  THE  FIRST  OF  TWO  TEMPORARY  USES  IN  THIS  ROUTINE  OF 

ATM  AD 

185 

WORD-8  OF  DATASET-BI.  HERE  IT  IS  USED  AS  A  POINTER  TO  THE  DSP 

ATMRAD 

186 

WORD  FOR  THE  TEMPORARY  DATASET-BX. 

ATMRAD 

187 

IF 

(  LOGIC  )  CALL  DSPWRD  (  JJ,  IDSBX  BI(J)  ) 

ATMRAD 

188 

IF 

{  LOGIC  )  TRANS  6t(J)  =  1. 

ATM  AD 

189 

IF 

(  LOGIC  )  BK'ND  SI ( J)  -  0. 

ATMRAD 

190 

IF 

(  LOGIC  )  TOST  BX(JJ)  =  1. 

ATMRAD 

191 

IF 

(  LOGIC  )  ABCLO  BX(JJ)  -  0. 

ATMRAD 

19? 

CALL  TO  1NDWRD  RETURNS  IN  JJ  THE  INDEX  (FIRST-WORD  ADDRESS) 

ATM  AD 

193 

FOR  THE  DATASET-BX  FOR  WHICH  THE  POINTER  TO  ITS  DSP  WORD 

ATMRAD 

194 

(ZEROTH-WORD  ADDRESS)  IS  STORED  IN  IDSBX  BI(J)  (WORD-8  OF 

ATM  AD 

1*5 

DATASET-BI). 

ATMRAD 

196 

IF 

(  .NOT.  LOGIC  )  CALL  INDWRD  {  1DS8X  BI( J).  JJ  ) 

ATM  AD 

197 

WDL 

*  WLO  BI(J1 

ATMRAD 

198 

MDH 

*  WHI  B1 ( J) 

ATMRAD 

199 

W  - 

.5  »  (  WDL  ♦  WDH  ) 

ATMRAD 

?00 

SET  MEAN  WAVENUMBER  W  FOR  CALLING  PLANCK  AND  MEAN  WAVELENGTH 

ATMRAD 

?m 

WAVEL  FOR  CA”  ’NG  AEROSOL. 

ATMRAD 

?0? 

WAVEL  *  1.E4/W 

ATMRAD 

?03 

OELTSBX ( JJ)  WILL  NORMALLV  EQUAL  DS  BECAUSE  THF  OLD  OELTSBX(JJ) 

ATMRAD 

?04 

WAS  INITIALLY  ZEROED  BY  THE  DSA  SYSTEM  AND  SUBSEQUENTLY  ZEROED 

ATM  AD 

?0S 

AT  THE  END  OF  EACH  PASS  THROUGH  ATMRAD,  EXCEPT  WHEN 

ATMRAD 

?06 

TEST  =  .TRUE. 

ATM  AD 

?07 

DELTS  8X ( JJ)  -  DELTS  B*(JJ)  +  D$ 

ATMRAD 

?0P 

IF 

(  LOGIC  )  CALL  AEROSOL (  HSF, WAVEL. XKSCA. XKAB5  BX(JJ),GBAP.  ) 

ATM  AD 

?0Q 

CALL  AEROSOL!  H$8, WAVEL. XKSCA.XKABS.GBAR  ) 

ATMRAD 

?10 

XKEXT  IS  THE  AEROSOL  EXTINCTION  COEFFICIENT  H/CM)  AT  BACK  OF 

A-d*AD 

?1! 

CURRENT  CELL  AND  TOST  IS  THE  AEROSOL  TRANSMITTANCE  TO  THE  BACK 

ATMRAD 

?1? 

OF  CURRENT  CELL 

A^MAD 

?1 3 

XKEXT  «  XKSCA  +  XKABS 

ATMRAD 

?ia 

TOST  -  EXP(  -XKEXT  *  OS  )  -  TOST  BXfJJl 

ATM  AD 

?lc 

COMPUTE  INCREMENTAL  RADIANCE  WHEN  TEMPERATURE 

ATMRAD 

?16 

CHANGE  IS  MORE  THAN  ONE  PERCENT  AT  STANDARD  PATH  RESOLUTION 

ATM  AD 

?’*  7 

IF 

(  TFST  )  GO  TO  5 

ATMRAD 

PIP 

NOTE  THAT  SUBROUTINE  TRANS  RECEIVES  THE  ARRAYS  U  ( I .  N  .  ? }  AND 

ATM  AD 

?19 

UP[  I  ,N ,?  )  AS  U(l,N,l)  ANO  U0!I.N.l). 

ATMRAD 

??0 

CALL  TRANS  {  10,  1.  U(l,l,?),  UP!!,!.?).  XI.  WDL.  WDH.  TAU,  ABC. 

ATM  AD 

??; 

I 

TNEW,  TRNSOPT,  EIlPOS  ) 

ATMRAD 

??? 

NOW  HAVE... 

ATM  AD 

??? 

ABC  »  OPTICAL-DEPTH  ARRAY  TO  BACK  OF  CURRENT  CELL  FOR 

ATMRAD 

??4 

SPEC!  ES  N  =  1 ,10 

ATM  AD 

??5 

TNEW  =  MOLECULAR  TRANSMITTANCE  TO  BACK  OF  C'JRR FNT  CELL 

ATMRAD 

??6 

TAU  *  MOLECULAR  TRANSMITTANCE  ARRAY  TO  RACK  OF  CURRENr 

ATM  AD 

??’ 

CELL  FOR  SPECIES  N  =  l,10  (UNUSED  HERE  1 

ATMRAD 

??R 

RESET  TNEW  TO  BE  THE  PRODUCT  Or  THE  MOLECULAR  AND  AEROSOL 

ATM  AD 

??R 

24' 


CLJ 

TRANSMITTANCE  TO  BACK  OF  CURRENT  CELL  (DS) 

ATM?  AD 

230 

TNEW  *  TNEW  *  TOST 

ATMRAD 

231 

ABCNEW  «  0. 

ATM?  AD 

232 

CLJ 

COMPUTE  OPTICAL  DEPTH  FOR  ALL  SPECIES,  ABC NEW,  TO  BACK  OF 

ATMRAD 

233 

CLJ 

CELL  OS. 

ATM?  AD 

234 

00  3  N-l.NMOLS 

ATMRAD 

23b 

3  ABCNEW  *  ABCNEW  ♦  ABC ( N ) 

ATM!  AD 

236 

ABCNEW  *  AMAXl(  ABCNEH.  ABCLD  BX(JJ)  ) 

ATMRAD 

23? 

C 

ACCUMULATE  SPECTRAL  RADIANCE  AND  TRANSMISSION  ARRAYS 

ATMRAD 

238 

CLJ 

UVRB  *  MOLECULAR  ABSORPTION  COEFFICIENT,  1/CM  (NORMALLY 

ATMRAD 

239 

CLJ 

FOR  CELL  DS) 

ATMtAD 

240 

UVRB  ■  (  ABCNEW  -  ABCLD  BX(JJ)  )  /  DaTS  BX(JO) 

ATMRAD 

241 

IF  (  LOGIC  )  UVRB  BX(JJ)  *  UVRB 

ATMRAD 

242 

BBODYF  -  PL  WICK (  TFRONT,  W  ) 

ATMRAD 

243 

B80DYB  ■  PLANCK(  TBACK,  W  ) 

ATMRAD 

244 

CLJ 

COMPUTE  IN-BAND  RADIANCE  TO  BACK  OF  caL  DS  BY  AVERAGING  OVER 

ATMRAD 

245 

CLJ 

PATH  SEGMENT  DS  WITH  LOGARITHMIC  INTERPOLATION.  THIS  STEP  IS 

ATM?  AD 

246 

CLJ 

VERY  IMPORTANT.  THE  FACTOR  (WDH-WDL)  CONVERTS  FROM  SPECTRAL 

ATMRAD 

247 

CLJ 

TO  IN-BAND  RADIANCE. 

ATM?  AD 

248 

BKGND  B1(D)  *  BKGND  BI(J)  ♦  ACCUM(  2,  0.,  DS.  (  UVP.B  BX(JJ)  + 

ATMRAD 

249 

S  XKABS  BX(JJ)  )*BBODYF*TRANS  BI(J),  (  UVR8  *  XKABS  )* 

ATMRAD 

250 

i  8B0DYB*TNEW,  0.,  DS  )  *  {  WDH  -  WDL  ) 

ATMRAD 

251 

CLJ 

SET  VALUE  OF  MOLECULAR  AND  AEROSOL  TRANSMITTANCE  TO  FRONT  OF 

ATM?  AD 

252 

CLJ 

NEXT  caL  FOR  NEXT  CALL  TO  ATMRAD. 

ATMRAD 

253 

TRANS  Bt(J)  *  TNEW 

ATMRAD 

254 

CLJ 

THE  FOLLOWING  TEST  IS  FOR  THE  LAST  CELL.  THE  CALL  TO  OSTROY 

ATMRAD 

255 

CLJ 

REMOVES  DATASET-BX  AND  ITS  DSP  WORD.  (THE  INDEX  JJ  AND  THE 

ATM?  AD 

256 

CLJ 

DSP  WORD  FOR  DATASET-BX  ARE  SET  TO  ZERO.  THE  SIX  WORDS  USED 

ATMRAD 

257 

CLJ 

BY  DATASET-BX  ARE  REGARDED  AS  FREE  BY  THE  SYSTEM,  THOUGH  THEY 

ATM?  AD 

258 

CLJ 

HAVE  NOT  YET  BEEN  ZEROED.)  INVOKE  SECOND  TEMPORARY  USE  OF 

ATMRAD 

259 

CLJ 

WORO-8  OF  DATASET-BI  BY  SETTING  IT  EQUAL  TO  TDST. 

A,-|?AD 

260 

IF  (  ISHaL(3)  .EO.  0  )  CALL  OSTROY  (  JJ  ) 

ATMRAD 

261 

IF  (ISHELL<3)  .EO.  0  )  CALL  XMIT(1 .TDST.IDSBX  BI(J)) 

ATM?  AD 

262 

IF  (ISHaL(3)  .EQ.  0  )  GO  TO  2 

ATMRAD 

263 

CLJ 

ZERO  THE  PATH- SEGMENT  LENGTH,  WHICH  IS  ALWAYS  DONE  UNLESS 

ATM?  AD 

264 

CLJ 

TEST  -  .TRUE.  ALSO,  SET  PROPERTIES  AT  FRONT  OF  NEXT  CELL 

ATMRAD 

265 

CLJ 

FOR  NEXT  CALL  TO  ATMRAD. . . 

ATM?  AD 

266 

CLJ 

ABCLD  BX(JJ)  -  OPTICAL  DEPTH 

ATMRAD 

267 

CLJ 

XKABS  BX(JJ)  »  AEROSOL  ABSORPTION  COEFFICIENT 

ATMRAD 

268 

CLJ 

UVRB  BX(JJ)  *  MOLECULAR  ABSORPTION  COEFFICIENT 

ATMRAD 

269 

CLJ 

TDST  BX(JJ)  -  AEROSOL  TRANSMITTANCE 

ATM?  AD 

270 

DaTS  BX(JJ)  -  0. 

ATMRAD 

271 

ABCLD  BX(JJ)  -  ABCNEW 

ATM?  AD 

272 

XKABS  BX(JJ)  *  XKABS 

ATMRAD 

273 

UVRB  BX(JJ)  ■  UVRB 

ATM?  AD 

274 

5  TDST  BX(JJ)  «  TDST 

ATMRAD 

275 

GO  TO  2 

ATM?  AD 

276 

C 

ATMRAD 

277 

10  IF  (  TEST  )  GO  TO  11 

ATM?  AD 

278 

REWIND  LTMTE 

ATMRAD 

2/9 

HSF  «  HSB 

ATM?  AD 

280 

TFRONT  •  TBACK 

ATMRAD 

281 

11  LOGIC  *  .FALSE. 

ATM?  AD 

28? 

RETURN 

ATMRAD 

283 

END 

ATM?  AD 

284 

Z48 


FUNCTION  CANGLE(PlLAT,PlLON,P2LAT,P2LON) 

CANGLE 

2 

ccc 

CANGLE 

3 

c 

FUNCTION  CANGLE  COMPUTES  THE  EARTH-CENTRAL  ANGLE,  CANGLE, 

CANGLE 

4 

c 

BETWEEN  THE  TWO  CENTRAL  RAYS  TO  POINTS  PI  AND  P2,  GIVEN  THE 

CANGLE 

5 

c 

LATITUDE  AND  LONGITUDES  OF  POINTS  PI  AND  P2. 

CANGLE 

6 

ccc 

CANGLE 

7 

c 

INPUT  PARAMETERS 

CANGLE 

8 

c 

ARGUMENT  LIST 

CANGLE 

9 

c 

PILAT  -  NORTH  LATITUDE  OF  POINT  PI,  RADIANS 

CANGLE 

10 

c 

P1L0N  -  EAST  LONGITUDE  OF  POINT  PI,  RADIANS 

CANGLE 

11 

c 

P2LAT  -  NORTH  LATITUDE  OF  POINT  P2,  RADIANS 

CANGLE 

12 

r 

PE10N  -  EAST  LONGITUDE  OF  POINT  P2.  RADIANS 

CANGLE 

13 

C 

OUTPUT  PARAMETER 

CANGLE 

14 

C 

CANGLE  -  EARTH-CENTRAL  ANGLE  BETWEEN  RAYS  TO  POINTS 

CANGLE 

15 

c 

PI  AND  P2 

CANGLE 

16 

ccc 

CANGLE 

17 

c 

CONSIDER  THE  SPHERICAL  TRIANGLE  P1-N-P2,  WHERE  N  IS  AT 

CANGLE 

18 

c 

THE  NORTH  POLE. 

CANGLE 

19 

ccc 

CANGLE 

20 

SINSIN  -  S1N(P1LAT]*SIN(P2LAT) 

CANGLE 

21 

COSCOS  -  COS(PlLAT)*COS(P2LAT) 

CANGLE 

22 

ALPHAC  ■  ACOS(  SINSIN  ♦  COSCOS*COS(P2LON-PlLON)  ) 

CANGLE 

23 

CANGLE  *  ALPHAC 

CANGLE 

24 

RETURN 

CANGLE 

25 

END 

CANGLE 

26 

FUNCTION  DOT  (  X;  Y  ) 

DOT 

2 

C 

DOT 

3 

C 

♦DOT*  FORMS  THE  DOT  PRODUCT  OF  TWO  VECTOR 5. 

DOT 

4 

C 

DOT 

5 

DIMENSION  X(3),  Y(3) 

DOT 

6 

DOT  -  X(l)  *  V ( 1 )  ♦  X(2)  *  Y(2)  ♦  X(3)  •  Y(3) 

DOT 

7 

RETURN 

DOT 

8 

END 

DOT 

9 

FUNCTION  ERF(X) 

ERFF 

2 

C 

ERF  IS  THE  ERROR  FUNCTION,  BASED  ON  THE  RATIONAL -APPROX IMATION 

ERFF 

3 

C 

FORMULA  7. 1.2. 6  IN  THE  NBS  APPLIED  MATH.  SERIES  NO.  55  (8UT 

ERFF 

4 

C 

WITH  CONSTANTS  REDUCED  TO  SEVEN  DIGITS). 

ERFF 

5 

C 

ERFF 

6 

Y  •  1.0 

ERFF 

7 

IF ( ABS(X)-4.0)  1,1,2 

ERFF 

8 

1  V  ■  1 .0/(1 .♦0.3275911*A8S(X)) 

ERFF 

9 

Y  •  1.  -  ((((1. 061405 *T  -  1.453152)*T  ♦  1.421414)«T  -  0.2844967)*T  ERFF 

10 

1  *  0. 2548296 1*T*EXP(-X*X) 

ERFF 

n 

2  ERF  -  SIGN(Y.X) 

ERFF 

12 

RETURN 

ERFF 

13 

END 

ERFF 

14 
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ccc 

c 

c 

c 

c 

c 

c 

ccc 


SUBROUTINE  ESURF(THI ,THR,PS1,ZKM,MSM,D0,SPCULR.ZLAM.IDAY,IFIRES. 

*  E SURF l.SFR.E PSD, TKS) 

SUBROUTINE  ESURF  PROVIDES  THE  BIDIRECTIONAL  REFLECTANCE 
DISTRIBUTION  FUNCTION  (BRDF),  DIRECTIONAL  EMISSIVITY,  AND 
TEMPERATURE  OF  THE  EARTH'S  SURFACE  AT  THE  INTERSECTION  POINT 
OF  THE  OPTICAL  LlNE-OF-SIGHT.  SINCE  THE  SURFACE  CATEGORY  IS 
NOT  AUTOMATICALLY  CORRELATED  WITH  THE  GEOGRAPHIC  POSITION, 

THE  USER  MUST  SELECT  ONE  OF  THE  SEVEN  CATEGORIES  PROVIDED. 

INPUT  PARAMETERS 
ARGUMENT  LIST 

THI  *  ZENITH  ANGLE  OF  SOURCE  (E.G.,  SUN  OR  FIREBALL)  AT 
INTERSECTION  POINT,  RADIANS 

WHEN  SUBROUTINE  SURRAO  IS  CALLED  FROM  SUBROUTINE 
UPWELL,  AS  IT  IS  IN  THE  NBR  MODULE,  THI  IS  SET  IN 
StIRRAD  TO  AN  ARBITRARY  (NON-PHYSICAL)  VALUE  OF 
-1.0  FOR  NIGHTTIME  CONDITIONS. 

ZENITH  ANGLE  OF  LINE-OF-SIGHT  AT  INTERSECTION 
POINT,  RADIANS 

AZIMUTH  ANGLE  (AT  INTERSECTION  POINT)  OF  VERTICAL 
PLANE  THROUGH  LINE-OF-SIGHT,  MEASURED  RELATIVE  TO 
THE  SOURCE  PRINCIPAL  PLANE  (I.E.,  VERTICAL  PLANE 
THROUGH  SOURCE  RAY).  A  VALUE  OF  PS  1-0  CORRESPONDS 
TO  FORWARD  SCATTERING.  IN  RADIANS 
FOR  NIGHTTIME  CONDITIONS.  PSI  IS  SET  TO  -1.0.  SEE 
COMMENT  ABOVE  EOR  THI. 

ALTITUDE  OE  SURFACE,  KM 
INDEX  FOR  CATEGORY  OF  SURFACE  MATERIAL. 

1,  LAMBERTIAN  DIFFUSE  SURFACE  WITH  SPECTRALLY- 
INDEPENDENT  RtFLECTANCE  SET  BY  DD'l)  AND 
EMISSIVITY  BY  (l.-DO(l)). 

water 

SNOW 
SAND 
SOIL 
FOLIAGE 

URBAN  MATERIAL 

ADDITIONAL  DESCRIPTOR  FOR  SELECTED  SURFACE 
MATERIAL. 

FOR  M  =  1,  (IAMBERTIAN  SURFACE),  DD(  1  >  =  DIFFUSE 
REFLECTANCE.  TYPICAL  VALUE  IS  0.10 
?,  (WATER),  00(2)  -  WIND  SPEED,  M/SEC. 

3,  (SNOW).  DD( 3)  *  SNOW-AGE  PARAMETER, 

00(3). GE.O.  .AND.  ,IE .  1 .  VALUES  OF  0.  AND  1. 
CORRESPOND  TO  NEW  AND  OLD  SNOW  RESPECTIVELY. 
4,5,6,  DO(M)  NOT  USED. 

7,  (URBAN  MATERIAL).  DO ( 7) 'DEGREE -OF -URBAN! Z AT  ION, 
00(7). GE.O.  .AND.  .IE.1.  FOR  0D( 7)  =  0.,  THE 
SPECTRAL  BRDF  CORRESPONDS  TO  A  FLAT  SURFACE 
WITH  AVERAGE  DIRECTIONAL -REFLECTANCE  PROPERTIES 
OF  CONCRETE  AND  ASPHALT.  FOR  DD(7)  *  1.,  THE 
SPECTRAL  BRDF  CORRESPONDS  TO  A  DIFFUSE 
REFLECTOR  MULTIPLIED  BY  A  SHADOW-FACTOR 
S(THI.THR)  -  !  COS!  THI  >  +  COS(THR)  ) /? . 

LOGICAL  PARAMETER 

.TRUE.  COMPUTE  COORDINATES  OF  SPECULAR 


THR 


PSI 


ZKM 

MSM 


DD(M) 


- 

*  3. 
' 

*  5, 

*  6, 
7, 


FOR 

FOR 


FOR 

FOR 


SPCULR 


ESURF 

2 

ESURF 

3 

ESURF 

4 

ESURF 

5 

ESURF 

6 

ESURF 

7 

ESURF 

8 

ESURF 

9 

ESURF 

10 

ESURF 

11 

ESURF 

1? 

ESURF 

13 

ESURF 

14 

ESURF 

15 

ESURF 

16 

ESURF 

17 

ESURF 

18 

ESURF 

19 

ESURF 

20 

ESURF 

21 

ESURF 

22 

ESURF 

23 

ESURF 

24 

ESURF 

25 

ESURF 

26 

ESURF 

27 

ESURF 

28 

ESURF 

29 

ESURF 

30 

ESURF 

3! 

ESURF 

3? 

ESURF 

33 

ESURF 

3A 

ESURF 

35 

ESURF 

36 

ESURF 

37 

ESURF 

38 

ESURF 

39 

ESURF 

40 

ESURF 

41 

ESURF 

4? 

ESURF 

43 

ESURF 

44 

ESURF 

45 

ESURF 

46 

ESURF 

47 

ESURF 

48 

ESURF 

40 

ESURF 

50 

ESURF 

51 

ESURF 

5? 

ESURF 

53 

ESURF 

54 

ESURF 

OF 

ESURF 

56 

ESURF 

57 

ESURF 

58 

l  so 
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REFLECTION  POINT  ESUPF 

«  .FALSE.  00  NOT  COMPUTE  COORDINATES  OF  SPECULAR  ESURF 

REFLECTION  POINT  ESURF 

ZLAM  =  WAVELENGTH,  MICROMETERS  ESUPF 

IDAY  *  INDEX  FOR  OAYLIGHT  CONDITIONS  AT  POINT  P  ESURF 

=  0  IF  SOLAR  ZENITH  ANGLE  .GT.  90  DEGREES  ESURF 

=  1  IF  SOLAR  ZENITH  ANGLE  .LE.  90  DEGREES  ESURF 

IF  IRES  =  FLAG  FOR  INCLUSION  OF  FIREBALLS  ESURF 

=0  IF  NO  FIREBALL  IS  BEING  CONSIDERED  ESURF 

WHICH  is  ALWAYS  THE  CASE  IN  THE  NBR  MODULE.  ESURF 
.GT.  0  IF  FIREBALLS  ARE  BEING  CONSIDERED  ESURF 

ESURE1  =  LOGICAL  PARAMETER  ESURF 

*  .TRUE.  IF  ESURF  IS  CALLED  FOR  THE  FIRST  TIME  FROM  ESURF 
SUBROUTINE  SURRAD  AND  BOTH  EPSD  AND  TXS  ESURF 
ARE  WANTED  IN  ADDITION  TO  SFR  AS  OUTPUTS.  ESURF 
WHICH  IS  ALWAYS  THE  CASE  IN  THE  NBR  MODULE  ESURF 

=  .FALSE.  IF  ESURF  IS  NOT  BEING  CALLED  FOR  THE  FIRST  ESURF 
TIME  FROM  SUBROUTINE  SURRAD  AND  A  RECOMPU-  ESURF 
TAT  ION  OF  EPSD  AND  TKS  IS  NOT  NEEDED,  A  ESURF 
POSSIBILITY  WHICH  OCCURS  ONLY  IF  ESURF 

SUBROUTINE  SURRAD  IS  USED  AS  A  UTILITY  ESURF 

ROUTINE  WITH  FIREBALLS  AS  SOURCES.  ESURF 

ESURF 

ATMOUP  COWON  ESURF 

TT  -  AMBIENT  ATMOSPHERIC  TEMPERATURE  AT  ALTITUDE  ZKM.  ESURF 

ESURF 

OUTPUT  PARAMETERS  ESURF 

ARGUMENT  LIST  ES'JRF 

SFR  -  F SUBR(M,DD( M) , ZLAM ' THI  ,THR , PSD  ESURF 

■=  BIDIRECTIONAL  REFLECTANCE  DISTRIBUTION  ESURF 

FUNCTION,  l./SR  ESURF 

(COMPUTED  ONLY  IF  SOURCE  IS  ABOVE  THE  HORIZON'  ESURF 

EPSD  -  1.0  -  RHOSUBM!ZLAM'THR,?*PI)  ESURF 

*  DIRECTIONAL  EMISSIVm,  DIMENSIONLESS.  ESURF 

TKS  *  SURFACE  TEMPERATURE,  DEG  K.  ESURF 

POSITN  COPWON  ESURF 

THIS  OUTPUT  OBTAINS  ONLY  IT  MSM*2  AND  SPCULR'.TRUE.  ESURF 

SPCLAT  -  NORTH  LATITUDE  OF  POINT  ON  SMOOTH  HORIZONTAL  ESURF 

WATER  SURFACE  FOR  A  SPECULAR  REFLECTION  FROM  ESUPF 

THE  SOURCE  TO  THE  DETECTOR  (COMPUTED  IN  ESURF 

SUBROUTINE  GL1TTR1,  RADIANS  ESURF 

SPCLON  -  EAST  LONGITUDE  OF  POINT  ON  SMOOTH  HORIZONtAl  ESURF 
WATER  SURFACE  FOR  A  SPECULAR  REFLECTION  FROM  ESURF 
THE  SOURCE  TO  THE  DETECTOR  (COMPUTED  IN  tSURF 

SUBROUTINE  GLimt),  RADIANS  ESURF 

CCC  ESURF 

DIMENSION  Dl"'7',ALPMf7))BETMf71,GAMM'71,RMOOIYl>KMPIf?),LL(7)  ESURF 

DIMENSION  WV4!18\WVB(16,,WV5(1?).WV7(?3),GTHI0(7)  ESURF 

DIMENSION  SP4;i:<).Sp5(16),SP6(l?),SP7(23)  ESURF 

COMMON/ ATHD'JP/  H  ,S8AR ,  IDORN,PP,RHO,TT ,  SNI '  301  .HRHO.FEHSEQ  ATMO‘JP 

COWON/POSI  IN/  PC SL AT, P05LON.PO SALT, SPCLAT, SPCLON  POSITN 

%  ,C1?LAT,C1?L0N,C1?ALT  POSITN 

LOGICAL  SPCULR , ESURF 1  ESURF 

DATA  fALPMi'H.M.  7)  /  0..0.  ,3.  ,3.  ,2. 5, 2. 5. A.  /  ES'JRF 

DATA  (8ETM(I',I=1.  7)  /  0. ,0. ,0.9, 0.5, 0,5. 0.5, 0.5  /  ESUcr 

DATA  (GAMM'r,I  =  l,  7)  /  0.  .0.  ,1 .  ,1 .  ,2.  ,2. ,?.  /  ES"»f 

DATA  (RMOO'I).1=1,  71  0.  ,0. ,  13 .  ,2 .5.1 .  ,1 .  ,  10.  S  /  ESURF 


69 

60 

61 

6? 

63 

64 

65 
65 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
8? 

83 

84 

85 

86 

87 

88 

89 

90 

91 
9? 
9? 
94 
96 

96 

97 
09 
97 

ion 

101 

107 

103 

U'4 

r>9 

10*. 

10 7 
2 
2 
7 

110 

111 

11? 

113 

11  4 


ccc 

cc 


DATA  (PMP1(1),I-1,  7)  I  0..0. .3. ,4. ,4. ,10. .1.  / 

DATA  (GTH]0( I ),  1*1, 7)  /  1. ,0. .1.024,1 .015,1  .M3, 1 .095,1.011  / 

DATA  (LL(I ),  1-1,7)  /  0,0,0,18.16,12,23  / 

DATA  PI  /  3.141592653590  / 

SPECTRAL  PARAMETERS  FOR  SANO. 

DATA  (WV4{ I) , t -1,18)  /  2.00,2.05,2.18,2.30.2.45.2.50,2.63,2.73, 

*  2.88,2.95,3.20,3.30,3.60,3.75,3.90,4.35, 

*  4.90,5.00  / 

DATA  (SP4(1), 1-1,18)  /  0.205,0.238.0.209,0.206,0.177,0.174,0.148. 

*  0.114,0.080,0.040,0.070,0.093,0.145,0.162, 

*  0.152,0.076,0.031.0.035  / 

SPECTRAL  PARAMETERS  FOR  SOIL. 

DATA  (WVS(I). 1-1,16)  /  2.00,2.08.2.25,2.50.2.62.2.70,2.77.2.92, 

*  3.15,3.50,3.70,3.82,4.10,4.60,4.77,5.00  / 
DATA  (SP5(l).  1*1.16)  /  0.262,0.272,0.257,0.227,0.198,0.095,0.067, 

*  0.061,0.067.0.112,0.158,0.177,0.195,0.158, 

*  0.142,0.113  / 

SPECTRAL  PARAMETERS  FOR  VEGETATION. 

DATA  (NV6(l),l*l,12)  1  2.00,2.20,2.64,2.78,2.96.3.03.3.16,3.22. 

*  3.42,3.58,3.95,5.00  / 

DATA  (SP6(I), 1-1,12)  /  0.129,0.212,0.059.0.059,0.120,0.120.0.033. 

*  0.033,0.074.0.074,0.037,0.021  / 

SPECTRAL  PARAMETERS  FOR  URBAN  MATERIALS. 

DATA  (WY7(1),1*1,23)  /  2.00,2.12,2.21.2.26,2.36,2.47,2.55,2.63, 

*  2.70,2.85,2.89,3.00,3.10,3.24,3.62,3.89, 

*  4.00,4.10,4.26,4.42,4.70,4.83,5.00  / 

DATA  (SP7(I), 1-1,23)  /  0.347,0.348,0.326,0.278.0.272,0.295,0.299. 

*  0.296,0.272,0.145,0.118,0.090,0.091,0.100, 

*  0.149,0.193.0.231,0.238.0.240,0.254,0.246,0.229,0.215  / 


CHECK  MATERIAL  INDEX  FOR  PROPER  RANGE 
IF(  (HSH.LT.l)  .OR.  (MSM.GT.7)  )  SO  TO  101 
IF(  .N0T.ESURF1  )  GO  TO  50 

CC  GET  SURFACE  TEMPERATURE  TAKEN  TO  8E  AIR  TEMPERATURE 

CC  AT  ALTITUDE  ZKM. 

CALL  ATN0SU(2.ZKN) 

TKS  -  TT 

50  IF(  HSM.GT.l  )  GO  TO  99 

CC  SET  PROPERTIES  FOR  MSM-1  (THE  VALUE  -1.0  FOR  SFR  IS  AN 

CC  ARBITRARY  DEFAULT  SETTING  VHICH  MILL  NEVER  BE  USED) 

SFR  -  -1.0 

IF (  (IDAY.tQ.l)  .OR.  (IFIRES.GT.O)  )  SFR  -  DD(1)/P1 
EPSD  *  1.0-00(1) 

RETURN 

99  IF (  MSM.GT.2  )  GO  TO  100 

CALL  GLITTRfTHI ,DD(2) ,SPCULR,2LAM, IDAT, IF1RES, ESURF1, SFR, EPSD) 
RETURN 

100  ALPHA  •  ALPM(NSM) 

SETA  -  BETN(MSM) 

GAWA  >  GAMM(NSM) 

RM2  -  RMOO(MSM) 

RMP  .  RMPI(MSM) 

LIN  •  LL(MSM) 

GTHIOA  *  GTHIO(MSM) 

CC  OBTAIN  THE  SPECTRAL,  N0RNAL-INCI0ENCE--HEM1 SPHERICAL 

CC  REFLECTANCE,  RHOM(ZLAM),  BASED  ON  TABLE  2-3  IN  TEXT. 

GO  TO  (101,101,103,101,105,106,107),  MSN 


ESt*F 

115 

ESURF 

116 

ESURF 

117 

ESURF 

118 

ESURF 

119 

ESURF 

120 

ESURF 

121 

ESURF 

122 

ESURF 

123 

ESURF 

121 

ESURF 

125 

ESURF 

126 

ESURF 

127 

ESURF 

128 

ESURF 

129 

ESURF 

130 

ESURF 

131 

ESURF 

132 

ESURF 

133 

ESURF 

134 

ESURF 

1" 

ESURF 

136 

ESURF 

137 

ESURF 

138 

ESURF 

139 

ESURF 

140 

ESURF 

HI 

ESURF 

112 

ESURF 

143 

ESURF 

144 

ESURF 

145 

ESURF 

146 

ESURF 

147 

ESURF 

148 

ESURF 

149 

ESURF 

150 

ESURF 

151 

ESURF 

152 

ESURF 

153 

ESURF 

154 

ESURF 

155 

ESURF 

156 

ESURF 

157 

ESURF 

158 

ESURF 

159 

ESURF 

160 

ESURF 

161 

ESURF 

16? 

ESURF 

163 

ESURF 

164 

EVURF 

165 

ESURF 

166 

ESURF 

167 

ESURF 

168 

ESURF 

169 

ESURF 

170 

ESURF 

171 

25? 


101  WRIT£{6.13)  MSH 

ESURF 

172 

1? 

FORMAT  (44 HO  ERROR  IN  VALUE  OF  HSM-(SEE  ESURF).  MSM=,I5) 

ESURF 

173 

CALL  EXIT 

ESURF 

174 

cc 

FOR  SNOW  (MSMO) 

ESURF 

175 

103  RHOM  -  (0.44-0.12*(ZL.AM-2.  ))*(!  .0-30(3 ) *5. /I?. ) 

ESURF 

176 

GO  TO  110 

ESURF 

177 

CC 

FOR  SAND  (MSM*4) 

ESURF 

178 

104 

CALL  LINEAR  (ZLAM,RH0N,WV4,SP4,LLM) 

ESURF 

179 

GO  TO  110 

ESURF 

180 

CC 

FOR  SOIL  <MSM=5) 

ESURF 

181 

105  CALL  LINEAR  (ZLAM,RHOM,WV5,SP5,LLM) 

ESURF 

182 

GO  TO  110 

ESURF 

183 

CC 

FOR  FOLIAGE  (MSM-6) 

ESURF 

184 

106  CALL  LINEAR  (ZLAM,RH0M,WV6.SP6,LLN) 

ESURF 

185 

GO  TO  110 

ESURF 

186 

CC 

FOR  URBAN  MATERIAL  (MSM*7) 

ESURF 

187 

107 

CALL  LINEAR  (ZLAM,RHOH,WV7.SP7.LLM) 

ESURF 

188 

CC 

COMPUTE  APPROXIMATE  VALUE  FOR  THE  SPECTRAL  PARAMETER 

ESURF 

189 

CC 

RH02M(ZLAM)  BY  USING  EQ.(6")  IN  TEXT. 

ESURF 

190 

no 

RHOZM  *  RHOM/(PI*GTHIOA) 

ESURF 

191 

CC 

PROTECT  AGAINST  ABORT  FOR  GRAZING  RAYS. 

ESURF 

192 

CTHI  •  COS(  THI  ) 

ESURF 

193 

CTHR  ■  COS(  THR  ) 

ESURF 

194 

cc 

IF  THI  OR  THR  GREATER  THAN  B9.9  DEGREES  RESET  TO  89.9  . 

ESURF 

195 

IF (  A8S(CTHI ) .LT.1.745E-03  )  CTHI  »  1.745E-03 

ESURF 

196 

IF (  ABS(CTHR1 .LT.1.745E-03  )  CTHR  *  1.745E-03 

ESURF 

197 

cc 

EVALUATE  AUXILIARY  PARAMETERS  NEEDED  REGARDLESS  OF  PRESENCE 

ESURF 

198 

cc 

OF  SOURCE. 

ESIRF 

199 

RBAR  -  0.5*(RMZ*RMP) 

ESURF 

200 

SA  -  ALPHA*BETA 

ESURF 

201 

P1A  *  (1.0-EXP(-SA))/SA 

ESURF 

202 

cc 

NEED  NOT  COMPUTE  SFR  IF  NEITHER  SUN  NOR  FIREBALL  IS 

ESURF 

203 

cc 

CONSIDERED  AS  A  SOURCE,  SO  SET  IT  (ARBITRARILY)  TO  -1.0 

ES'JRE 

204 

SFR  -  -1.0 

ESURF 

205 

IF (  (IDAY.EQ.O)  .AND.  ( IFIRES.EQ.O)  )  GO  TO  124 

ESURF 

206 

IF (  (THI. GT. 0.0)  .OR.  (THR. GT. 0.0)  )  GO  TO  120 

ESURT 

207 

cc 

EVALUATE  SFR  AVERAGED  OVER  AZIMUTH  ANGLES,  FROM  EQ.(3A)  IN 

ESURF 

208 

cc 

TEXT. 

ESURF 

209 

SFR  •  RHOZM*(1.0*#BAR*P1A*EXP(-2.*ALPHA)) 

ESURF 

210 

CTHR  •  1.0 

ESURF 

211 

GO  TO  122 

ESURF 

212 

120  ABTF  -  BETA*(l.O-A8S(1.0-2.*PSI/PI)) 

ESURF 

213 

CGAM  -  CTHI**GA»W  4  CTHR**GAMMA 

ESURF 

214 

RMPSI  -  RMZ  -  (RMZ-RMP)*P5I/PI 

ESURF 

215 

CC 

EVALUATE  EQ.(l)  IN  TEXT. 

ESURF 

216 

SFR  -  RHOZM* ( 1 ,0*RMPSI *EXP(  -ALPHA*(C6AM+ABTF ) )) 

ESURF 

217 

12? 

IF (  MSM.NE.7  )  GO  TO  124 

ESURF 

2iB 

CC 

FOR  MSM=7,  EVALUATE  ED. (171  IN  TEXT  FOR  SFR. 

ESURF 

21R 

URBAN  *  RH9ZV*0D(  7  )*(CTHI  *CTHR)  72. 

ESURF 

220 

SFR  >=  URBAN  *  $FR*(1 .0-D0(  7 ) ) 

ESURF 

221 

124 

IF (  .NOT.ESURFI  )  RETURN 

ESURF 

222 

cc 

PREPARE  TO  COMPUTE  DIRECTIONAL  EMISSIVITY, 

ESURF 

223 

CC 

EVALUATE  EO.(IO)  IN  TEXT  WITH  THETA  REPLACED  BY  THR. 

ESURF 

224 

FGAFW  *  EXP(-ALPHA*CTHR**GAm\) 

ESURF 

??5 

[GAM  *  GAMMA *0.25 

ESURF 

226 

GO  TO  (126,128),  16AM 

ESURF 

??7 

cc 

EVALUATE  E0.(8)  IN  TEXT. 

ESURF 

228 

253 


126 

P2SAH  •  (1.0-(ALPHA+1.)*EXP(-ALPHA))/(ALPNA*ALPHA) 

ESURF 

229 

GO  TO  no 

ESURF 

230 

CC 

EVALUATE  EQ.(9)  IN  TEXT. 

ESURF 

231 

128 

P2GAM  *  (1 .0-EXP( -ALPHA) )/( 2.*AL PHA) 

ESURF 

23? 

CC 

FRHOM  *  DIRECTIONAL-HEMISPHERICAL  REFLECTANCE 

ESURF 

233 

CC 

EPSO  =  DIRECTIONAL  EM1SSIVITV 

ESURF 

234 

CC 

EVALUATE  £0.(6)  IN  TEXT,  BUT  WITH  THI  REPLACED  BT  THR  IN  THE 

ESURF 

235 

CC 

ANTICIPATION  THAT  FRHOM  HILL  BE  USED  IN  £Q.(12)  FOR  THE 

ESURF 

236 

CC 

DIRECTIONAL  EMISS1VITY. 

ESURF 

237 

130  FRHOM  =  PI*«HOZH  *  ( 1 .0*2. *P1A*P2GAM*R8AR*FGAW) 

ESURC 

238 

IF (  MSM.NE.7  )  GO  TO  140 

ESURF 

239 

CC 

FOR  MSM=7,  EVALUATE  EQ.(18)  IN  TEXT,  BUT  WITH  THI  REPLACED  BY 

ESURF 

240 

CC 

THR  IN  THE  ANTICIPATION  THAT  FRHOM  HILL  BE  USED  IN  EQ.(19)  FOR 

ESURF 

241 

CC 

THE  DIRECTIONAL  EM1SSIVITY. 

ESURF 

242 

FRHOM  -  ( 1 . -OD (71) *FRHOM  +  DD(7)*RH02M*PI*(0.50«CTHR  ♦  0.333333) 

ESURF 

243 

CC 

EVALUATE  £0.(12)  IN  TEXT. 

ESURF 

244 

140 

EPSO  =  l.O-FRHOM 

ES'JRF 

245 

RETURN 

ESURF 

246 

END 

ESURF 

247 

FUNCTION  FRAr  (  A,  B,  X.  Y  ) 

FRAC 

2 

FRAC 

3 

*FRAC»  calculates  the  fraction  of  INTERVAL  (A.BI 

FR  AC 

4 

CONTAINED  IN  INTERVAL  (X,Y)  Iff  (A.B) 

■LE.  (X,Y)  ) 

OR 

FRAC 

5 

COVERED  BY  INTERVAL  (  X, Y !  IF{  ( A ,B ) 

.GT.  (X,Y)  ) 

. 

FRAC 

b 

FRAC 

7 

D  =  A  -  B 

FRAC 

8 

FR1  .=  AMAXU  AMINH  (A  -  Y)/D,  1.  ),  0.  1 

FRAC 

9 

FR2  <=  AMAX1!  AMINH  (X  -  I"/D,  1.  ),  0.  ! 

FRAC 

10 

FRAC  -  FR1  +  FR2-1. 

FRAC 

11 

RETURN 

FRAC 

1? 

END 

FRAC 

13 

2i>4 


SUBROUTINE  FRESNL (ZLAM.OMEGA.RHO) 


CCC 

C 

C 

CCC 

C 

C 

C 

C 

C 

CCC 


c 

c 

c 

c 

CCC 

c 

c 

c 

c 

c 


fresnl 
fresnl 

SUBROUTINE  FRESNL  EVALUATES  THE  FRESNEL  (SPECULAR)  FP5SNL 

MONOCHROMATIC  REFLECTANCE  OF  A  SMOOTH  WATER  SURFACE.  GIVEN  FRLSNL 
THE  WAVELENGTH  AND  ANGLE  OF  INCIDENCE.  FRESNL 

FRESNL 

INPUT  PARAMETERS  FRESNL 

ARGUMENT  LIST  FRESNL 

ZLAM  -  WAVELENGTH  'M!CP0MEtER5)  FRESN. 

OMEGA  -  ANGLE  OE  INCIDENCE  (WITH  RESPECT  TO  NORMAL  TO  FRESNL 
SMOOTH  ELEMENT  OF  WATER  SURFACE'  (RADIANS'  FRESNL 

FRESNL 

OUTPUT  PARAMETER  FRESNL 

ARGUMENT  LIST  FRESNL 

RHO  -  FRESNEL  MONOCHROMATIC  REFLECTANCE  OF  PLANE,  FRESNL 

UNPOLARIZED  ELECTROMAGNETIC  WAVE  INCIDENT  AT  FRESNL 

angle  omega  on  plane,  absor3’ng  surface  with  fresnl 

COMPLEX  INDEX  OF  REFRACTION  NN  -  SN  -  1*SX  FRESNL 

FRESNL 

DIMENSION  $NNU(222).  SKNU(222)  FRESNL 

FRESNL 

THE  VALUES  OF  THE  COMPLEX  INDEX  OF  REFRACTION  ARE  TAKEN  FROM  FRESNL 
H.  0.  DOWNING  AND  D.  WILLIAMS,  OPTICAL  CONSTANTS  OF  WATER  IN  FRESN’. 
THE  INFRARED,  J.  GEOPHYS.  RES.  MOL.  80,  1656(19751.  FRESNL 

FRESNL 

DATA  (SNNU(I), 1=1, 1*25  /  1 .321 ,1 .322.1 .322,1 .323,1 .324,1 .324,  FRESN. 

1.325.1  . 326, 1.325, 1.325, 1.325, 1.325.  FRESNL 

1.326, 1.325 ,1.326, 1.327, 1.327, 1.327, 1.327, 1.327,1.325. 1.328.  FRESNL 

1.329,1.329,1.329.1.330,1.330,1.330.1.331.1.332,1.332,1.333,  FRESNL 

1. 334. 1.334, 1.335. 1.337, 1.337,1. 338, 1.3*0, 1.340,1. 341, 1.342,  FRESNL 

1. 343.1. 344, 1.344, 1.345, 1.346,1. 3»7, 1.3«8,!.34fl,l. 349.1. 350.  FRESNL 

1.351.1.352,1.353.1.354,1.355,1.357,1.358.1.356,1.360.1.361,  FRESNL 

1. 361. 1.363, 1.365, 1.366, 1.367, 1.369. 1.370, 1. 371  , 1. 37?, 1.3T4,  FRESNL 

1.375,1.377,1.378,1.379,1.382,1.383,1.386,1.387,1.388,1.302,  FRESNL 

1 .392,1 .394,1 .396,1 .395,1 .400,1 .403.1.406,1.407,1.410,1.413,  FRESNL 

1.415. 1.418, 1.421, 1.425. 1.427, 1.431.1 .434,1.437,1.441,1.444,  FRESNL 

1.448.1.451.1.454.1.457.1.461.1  .464 ,1 .467,1 .472,1  .474 , 1 .477,  FRESNL 

1.479,1,482,1.485.1.486,1.487,1 .487,1 .48’, 1 .486,1 .483.1 .480,  FRESN. 

1. 476. 1.471. 1  .465, 1.4R7, 1.450, 1.442, 1. 434,  !.4?6, 1. 417, 1 ,A0\  FREES. 

1.398,1.386,1.376.1.364.1.353,1.342,1.329.1.317,1.305,1.793  /  FRESNL 

DATA  (SNNUd),  1  =  143, 72?)  i  1  .282,1.271,1.258,1.246.1.233,  FRESN. 

1 .220 ,1 .212,!. 19°, 1.19 1.1. 183,  FRESNL 

1,1 77, 1,171, 1.165, 1.161. 1.158, 1.154. 1.149, 1.144, 1.141, 1.139.  FRESNL 

1.138,1.138.1.139,1.144,1.149,1 .157,1.166,1.172,1 .179,1.185,  FRESNL 

1. 191. 1.195. 1.200.1. 205. 1  210, 1  .214  , 1.218, 1.221,1 . 224.1  .227,  FRESNL 

1.230.1.232,1.235,1.238,1.240,1.241,1.243,1.246,1.247,1.249,  FRESNL 

1. 250. 1.252,1. 254, 1.26S, 1.256,1 .257, 1.259, 1.260, 1.261. 1.265,  fresn. 

1.270. 1  .274. 1.277, 1.280, 1.282, 1.285, 1.287, 1.289, 1.291, 1.293,  fresn. 

1.294. 1.295, 1.296, 1.298, 1.298, 1.300, 1.301, 1.301,1 .303,0.0  /  FRESNL 


DATA  (SKNUi I •, 1*1,1 12)  /  1.26E-2, 1 .29E-2.1 . 33E-2.1 . 37E-2 ,  FRFSV. 

*  1 .405-2,1  .435-2,1 .46E-2.1 .48E •?,  fresn. 

*  1 .51E-2.1 .53E-2.1 .55E- 2,1.5 7E- 2,1. 57E-2.1 1 .865-2,1 .54E- 2,  FRESNL 

*  1 . 52E-2 , 1 .49E-2, 1 , 45E-2 , 1 .40E-2.1 . 36F-? .1 . 315-2,1 . 26E-2.1  . 22F-2,  FRESNL 

*  1.17E-2,1.12E-2,1.08E-2,1.045-2,l,OOE-2,9.66E-3,9.27E-3,8.96E-3.  fresn, 

*  8. 64E-3.8 . 33E-3, 8. 065 -3,7. 79E-3, 7 .49E  ■3,7.22E-3,6.96E-3,6.73E-3,  FRESNs. 

*  6.53E-3,6.31E-3,6.08E-3,5. 86E-3 ,5.685-3, 5.49E- 3 ,5 . 31E- 3,5. 1 ?F- 3 ,  FRESNL 

*  4.94E-3,4,79E-3i4.65E-3t4.S0E-3,4.33E-3,4.??E-3,4.10E-3,3.«3E-3,  FRESN. 


2 

7 

i 

8 
6 

7 

8 
9 

i  n 
1! 
12 

tj 

14 

15 

16 

17 

18 
i« 
20 
?! 
2? 

23 

24 

25 

26 
77 
28 

29 

30 

3] 

32 

33 

34 
3F 

36 

37 

39 

40 
«! 
42 
«7 

41 

45 

46 
4' 
t- 
49 
5? 

5 1 

52 
c  1 
4d 
E5 

C.C 
t  7 

RC 


3.89E-3,3.7PE-3,3.70E-3,3.63E-3,3.S2£-3,3.48E-3,3.40C-3,3.39E-3, 
3.35E-3,3.3«£-3,3,35E-3,3.40E-3,3.47£-3,3.5$E-3.3.63£-3,3.76E-3. 
3.89E-3, 4.05£-3,4.24E-3,4.49E-3,4,73E-3,5.  Q6E-3,5. 38E-3, 5. 79E-3, 
6.25E-3,S.83E-3,7.37E-3.8.07E-3,8.66E-3.9.41E-3,1.01E-2,1.10E-2. 

1 .18E-2, 1 .28E-2.1 . 38E-2,1.51E-2,1.63£-2,1 . 77E-2.1 .93E-2.2. 10E-2, 
2.29£-?,2.50£-2,2.62E-2.2.79E-2,2.9:E-2,3.15E-2,3.4BE-2,3.85E-2. 
4.22E-2.4, 62E-2.5 .04E- 2,5. 50E- 7,6 .OOE-2,6. 53E-2.7 .16E-2, 7 .85E-2  / 
DATA  ($KNU(I). 1*113, 222)  /  8.55E-2.9.20E-2.9.94E-2.1.10E-1, 

1.17E-1.1 .25E-1.1.34E-1.1.44E-1. 
1.53E-1 ,1 .63E-1.1  73E-1.1 .83E-1.1 .95E-1,2.04£-1 ,2 .12E-1.2. 20E-1, 
2.28E-1.2.36E-1.2.43E-1.2.50E-1.2.55E-1.2.62E-  1.2.67E-1.2.72E-1, 
2.76E-1 ,?.79£-l,2.02E-l,2,82E-l,2.81E-l ,2.80E-1,2.76E-1,2.7’E-1, 
2.65E-1,2.S8E-1,2.49E-1,2.39£-1,2.29£-1,2.18£-1,2.06£-1.1.94E-1. 

1 .80E-1 ,1,67£-1,1 .54E-1.1.42E-1 ,1.31E-1,1 .2U-1.1 . 12E- 1 ,1 .02E-1. 
9.27E-2.8.36E-2.7 .44E-2.6 .49E-2, 5 .48E-2.4.62E-2.3. 80E-2.2.82E-2, 
2.05E-2, 1 .86E-2,1 .64E-2.1 .45E-2.1 -27E-2, ; .05E-2.8. 55E-3.7.32E-3, 
6.27E-3,S.36E-3,4,82E-3,4.37E-3>4.02E-3,3.30E-3,2.98E-3,2.70E-3, 
2.57E-3,2.48E-3,2.43E-3.2.39E-3,2.34E-3,2.3!E-3,2.27E-3,2.24E-3, 
2.19E-3,2.15E-3,2.12E-3,2. 10E-3 ,2.07E-3.2.05E-3.2.00E-3,1 .95E-3, 
1.90E-3.1 . 56E-3,1.23E-3,9.68E-4,  '.92E-4,6.52E-4,5.42E-4,4.65£-4, 
4.16E-4.3.76E-4 .3.45E-4 ,3. 38E-4 .3.41E-4.3. 59E-4.4 .Q0E-4.4.52E-4, 
5.14E-4,6.17E-4.7.31E-4.9.00E-4,1,10€-3.0.C  ' 


THE  FORMULAS  FOR  THE  REFLECTANCE  ARE  TAKER  FROM,  E.  G.,  D. 
NENZEl  (EDITOR),  FUNDAMENTAL  FORMULAS  OF  PHYSICS,  (P.  422), 
OOVER  PUBLICATIONS.  IRC.,  HEW  YORK.  1960. 


H. 


HAVE  .  1 .0E+O4/ZLAM 

IF (  HAVE. GE. 4000.  )  GO  TO  10 

NX  -  FRACTlOHAL  HUMBER  Of  DATA  POINTS  CORRESPONDING  TO  HAVE. 

WX  -  1.0  +  (HAVE-2000. )/10. 

GO  TO  20 

10  VX  *  201.  ♦  (HAVE-4000. )/50. 

1J  *  FIRST  0ATA-P01NT  INDEX  ABOVE  HAVE. 

20  IJ  *  WI+1.0 

DELW  •  FRACTlOHAL  PART  OF  DATA  IHTERVAL  CORRESPONDING  TO  HAVE. 
OELH  .  UX  -  FLOAT(IJ-l) 

SH  -  SHMU(IJ-l)  ♦  (SHHU'IJ)-SHNU(1J-1))*0ELH 

SX  -  SKHU(IJ-l)  ♦  (SXHU(IJ)-5KHU(IJ-l))*oaw 

SMSQ  *  SIH{  OMEGA  )**2 

SNK5  -  SN*SN-SK*$K-$NSC 

FHK  *  (2,*SN*SK)**2 

TRM  -  SQKT(  $NKS*5HK$*FKX  ) 

SAPSQ  *  0.50*(TTUHSNKS) 

SAMSQ  -  0.5C*(TRK-SHKS) 

CC  *  SAPSO*SAMSQ 
SAP  =  SORT(  SAPSt)  ) 

EE  *  COS(  OMEGA  ) 

EE*£E 
?.*SAP*EE 
SH SO/EE 
00*00 
2.*SAP*00 

(CC-APE2*EES0) 7(CC*APE2+EES0) 

RS*(CC*OOSQ)/(CC-'AP02*DOSO) 


EESO 

APE? 

OD 
00  SQ 

APD2 
RS  * 
RHO 
RETURN 
END 
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FRESNL 
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FRESNl 

9S 

FRESNL 
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FRESNL 
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FRESNL 
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FRESNL 
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FRESNL 
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FRESNL 
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FRE5NL 
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SUBROUTINE  GCReLefPILAT.PiLON.PSLAT.PBLON.ALPU.ALPIP.PPLAT.PPLON)  GCRCLE 

? 

ccc 

GCRCLE 

3 

c 

FOR  THREE  POINTS  P2,  P?,  AND  P3  ON  A  GREAT  CIRCLE,  SUBROUTINE 

GCRCLE 

4 

c 

GCRCLE  COMPUTES  THE  LATITUDE  AND  LONGITUDE  OF  THE  INTER¬ 

GCRCLE 

c 

MEDIATE  ?0 INT  P2,  GIVEN  THE  LATITUDES  AND  LONGITUDES  OF  THE 

GCRCLE 

6 

c 

END  POINTS  PI  AND  P3,  THE  CENTRAL  ANGLE  ALP13  BETWEEN  THE 

GCRCLE 

/ 

c 

CENTRAL  RAYS  TO  PI  AND  23,  AND  THE  CENTRAL  ANGLE  ALP12 

GCRCLE 

8 

f 

BETWEEN  THE  CENTRAL  RAYS  TO  PI  AND  P2. 

GCRCLE 

9 

ccc 

GCRCLE 

10 

c 

INPUT  PARAMETERS 

GCRCLE 

11 

c 

ARGUMENT  LIST 

GCRCLE 

12 

c 

PILAT  -  NORTH  LAT1TU0E  OF  POINT  PI,  RADIANS 

GCRCLE 

13 

c 

PI LON  -  EAST  LONGITUDE  OF  POINT  PI,  RADIANS 

GCRCLE 

14 

c 

P3LAT  -  NORTH  LATITUDE  Of  POINT  P3,  RADIANS 

GCRCLE 

15 

c 

P3L0N  -  EAST  LONGITUDE  OF  POINT  P3,  RADIANS 

GCRCLE 

16 

c 

ALP13  -  EARTH-CENTRAL  ANGLE  BETWEEN  RAYS  TO  POINTS 

GCRCLE 

17 

c 

PI  AND  P3,  RADIANS 

GCRCLE 

18 

c 

ALP12  -  EARTH-CENTRAL  ANGLE  BETWEEN  RAYS  TO  POINTS 

GCRCLE 

19 

c 

PI  AND  P2,  RADIANS 

GCRCLE 

?0 

ccc 

GCRCLE 

21 

c 

OUTPUT  PARAMETERS 

GCRCLE 

22 

c 

ARGUMENT  LIST 

GCRCLE 

23 

c 

P2LAT  -  NORTH  LATITUDE  OF  POINT  P2,  RADIANS 

GCRCLE 

24 

c 

P2L0N  -  EAST  LONGITUDE  OF  POINT  PZ,  RADIANS 

GCRCLE 

25 

ccc 

GCRCLE 

26 

DATA  PI  /  3.141592653590  / 

GCRCLE 

27 

ccc 

GCRCLE 

28 

c 

CONSIDER  THE  SPHERICAL  TRIANGLE  P1-N-P3 

GCRCLE 

29 

c 

POINT  N  IS  NORTH  POLE 

GCRCLE 

30 

ccc 

GCRCLE 

31 

SINCOS  -  SIN( P3LAT)  -  COS( ALP13'.*S1N(P1LAT) 

GCRCLE 

3? 

SINCOS  «  SI  NCOS/ (SIN(ALP13)*C0S( PILAT)) 

GCRCLE 

33 

AMOA  -  ACOS{  SINCOS  ) 

GCRCLE 

34 

ccc 

GCRCLE 

35 

c 

CONSIDER  THE  SPHERICAL  TRIANGLE  Pl-N-PZ 

GCRCLE 

36 

ccc 

GCRCLE 

37 

COSSIN  -  COS ( ALP  12) *SIN( PILAT) 

GCRCLE 

38 

SINCOS  --  S  ■  N : ALP1 2 ) *COS ( PILAT) 

GCRCLE 

39 

P2LAT  -  AS  1 rt {  COSSIN  ♦  SINCOS*COS( AMDA)  ) 

GCRCLE 

40 

ccc 

GCRCLE 

41 

c 

AGAIN,  CONSIDER  SPHERICAL  TRIANGLE  P1-N-P2 

GCRCLE 

4? 

ccc 

GCRCLE 

43 

PIZ  *  PI+PI 

GCRCLE 

44 

P3MP1  *  P3L0N-P1L0N 

GCRCLE 

45 

P1ZL0N  *  ASINI  SIN!AMDA)*SIN(ALP)2)/C0S(P?lAT)  ) 

GCRCLE 

46 

n LON  *  P1L0N  +  P12L0N*SIGN( 1. D.P3MP1 ) 

GCRCLE 

47 

JFf  A8S(P3MP1).LE.?I  )  GO  TO  20 

GCRCLE 

48 

P2L0N  *  PlLON  -  P1?L0N*SIGN( 1 ,0,P3MP1 ) 

GCRCLE 

49 

10 

2F(  P2L0N.LT. 0.0  )  PPL ON  -  P2L0N+PI? 

GCRCLE 

50 

IF{  P2L0N.GE.PI?  )  P2LDN  *  P2LON-PI2 

GCRCLE 

51 

RETURN 

GCRCLE 

5? 

END 

GCRCLE 

53 
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SUBROUTINE  GE0REA(HA1,GC1,GL1.HA2,GC2,GL2.SR?1,EL21,AZ21) 

GEOREA 

2 

ccc 

GEOREA 

3 

c 

SUBROUTINE  GEOPEA  (A  MODIFIED  HARC  ROUTINE).  GIVEN 

THE 

GEORFA 

4 

c 

GEOGRAPHIC  coordinates  of  two  points,  PROVIDES  THE 

SLANT  RANGE, 

GFOREA 

5 

c 

ELEVATION  ANGLE.  AND  AZIMUTH  ANGLE  OF  POiNT  2  WITH 

RESPECT  TO 

GEOREA 

6 

c 

POINT  1. 

GEOREA 

7 

ccc 

GEORFA 

8 

c 

INPUTS  FROM  CALL  STATEMENT 

GEOREA 

9 

c 

KA1  =  ALTITUDE  OF  POINT  1,  CM 

GEOREA 

10 

c 

GC1  *  COLATI TJDE  OF  POINT  1.  RADIANS 

GFOREA 

11 

c 

GL1  =  EAST  LONGITUDE  OF  POINT  1.  RADIANS 

GEOREA 

12 

c 

HA2  =  ALTITUDE  OF  POINT  2,  CM 

GEOREA 

13 

c 

GC2  -  COLATITUDE  OF  POINT  2,  RADIANS 

GEOREA 

14 

r 

GL2  *  EAST  LONGITUDE  OF  POINT  2,  RADIANS 

GEOREA 

IS 

c 

OUTPUTS 

GEOREA 

IS 

c 

SR21  -  SLANT  RANGE  OF  POINT  2  RELAT1VF  TO  POINT  1,  CM 

GEOREA 

17 

c 

EL 21  *  ELEVATION  OF  POINT  2  RELATIVE  TO  POINT 

1,  RADIANS 

GFOREA 

18 

c 

AZ21  =  AZIMUTH  OF  POINT  2  RELATIVE  TO  POINT  1 

.  RADIANS 

GEORFA 

19 

ccc 

GEOREA 

20 

CALL  GEOTAN) HA1 ,GC1 ,GLl ,HA2,GC 2, GL2.XE21 ,YN?1 ,ZV21 ) 

GEOREA 

21 

XYSQ  *  X£21**2  +  YN21**2 

GEOREA 

22 

SR 21  -  $QRT(XYSQ  ■»  ZV21**2) 

GEOREA 

23 

EL 21  =  ATAN2(  ZV21 , SQRT( XYSQ)  ) 

GEOREA 

24 

AZ21  -  0.0 

GFOREA 

2S 

IF (  XYSQ. GT. 0.0  )  AZ21  =  ATAN2(  XE21.YN21  ) 

GFOREA 

26 

RETURN 

GEOREA 

27 

END 

GEOREA 

28 

SUBROUTINE  GE0TAN(HA1,GC1,GL1,HA2,GC?.GL2,XE21,YN?1,ZV21) 

GEO  TAN 

2 

rzz 

GEOTAN 

3 

c 

SUBROUTINE  GEOTAN  (A  MODIFIED  HARC  ROUTINE  CALLED  GEDXYZ) 

GcOTAN 

4 

c 

GIVFN  THE  GEOGRAPHIC  COORDINATES  OF  TWO  POINTS,  PROVIDES 

THE 

GEOTAN 

=1 

c 

TANGENT-PLANE  COORDINATES  OF  POINT  ?  WITH  RESPECT  TO  POINT  1. 

GFOTAN 

6 

ccc 

GEOTAN 

7 

c 

INPUTS  FROM  CALL  STATEMENT 

GEOTAN 

8 

c 

HA]  --  ALTITUDE  OF  POINT  1,  CM 

geotan 

9 

c 

GC1  =  COLATITUOE  OF  POINT  1,  RADIANS 

GEOTAN 

10 

c 

GL1  *  EAST  LONGITUDE  OF  POINT  1,  RADIANS 

GEOTAN 

11 

c 

HA?  =  ALTITUDE  OF  POINT  2,  CM 

GEOTAN 

12 

c 

GC2  =  CDLATITUDE  OF  POINT  2,  RADIANS 

GEOTAN 

13 

c 

GL?  ^  EAST  LONGITUDE  OF  POINT  2,  RADIANS 

GEOTAN 

14 

c 

OUTPUTS 

GEOTAN 

IS 

c 

XE21  -  X  COORDINATE  OF  POINT  2  RELATIVE  TO  POINT  1, 

CM 

GFOTAN 

IS 

c 

YN21  =  Y  COORDINATE  OF  POINT  2  RELATIVE  TO  POINT  1, 

CM 

GEOTAN 

17 

c 

2V21  =  7  COORDINATE  OF  POINT  2  RELATIVE  TO  POINT  1, 

CM 

GEOTAN 

18 

ccc 

GEOTAN 

IQ 

DATA  RE  /  6.37103E+08  / 

GEOTAN 

20 

ccc 

GEOTAN 

2! 

GR1  =  RE+HA1 

GFOTAN 

22 

GK?  -  RE»HA2 

GEOTAN 

23 

GLO  »  GL2-GL1 

GEOTAN 

24 

SINGC1  -  SIN(GCl) 

GEOTAN 

25 

SINGC2  -  SIN(GC2) 

GEOTAN 

26 

C0SGC1  •  COS(GCl) 

GEOTAN 

?7 

C0SGC2  =  COS!GC?) 

GrOTAN 

28 

COSGLD  =  COS' GLO) 

GEOTAN 

?Q 

XE21  -  GR?*SINGC?*SIN(GLO) 

GFOTAN 

3n 

TN21  =  GR?*(SINGC1*C0SGC?  -  COSGC1*SIN6C?*C05GLD) 

GFOTAN 

31 

ZV21  =  GR?*(C0SGC1*C0SGC?  ♦  SINGC1‘SINGC2*C0SGL01  -  GR1 

GEOTAN 

3? 

RETURN 

GFOTAN 

33 

END 

GEOTAN 

34 

noooor>or>nr,r> 


ccc 

c 

c 

ccc 


c 

c 

ccc 

ccc 


SUBROUTINE  GEOXYZ(PH,PLAT,PLON,RPX .RPY  ,Ml) 


SUBROUTINE  GEOXYZ  CONVERTS  THE  GEOGRAPHIC  COORDINATES  OF  A 
PO!NTJTO  EARTH-CENTERED  CARTESIAN  COORDINATES. 

INPUT  PARAMETERS 

ARGUMENT  LIST  _ 

PH  -  ALTITUDE  OF  POINT  P.  KM 
plat  -  NORTH  latitude  of  point  p.  RAO  ans 

PLON  -  EAST  LONGITUDE  OF  POINT  P.  RADIANS 

OUTPUT  PARAMETERS 

WGLRp5T-LfARTH-CENTERED  CARTESIAN  COORDINATE  X  OF 

RPY  -  EARTH-CENTERED  CARTESIAN  COORDINATE  V  OF 

P.PZ  -  EARTH-CENTERED  CARTESIAN  COORDINATE  Z  OF 

POINT  P,  KM 


OF  TA  RE  /  6 .37103E*03  / 


RP  -  RE*PH 

RPZ  *  RP*SIN( PLAT) 

RPEO  *  RP*COS(PLAT) 

RPX  *  RPEQ*COS(PLON) 

RPY  =  RPEQ*SIN(PLON) 

RETURN 

END 


GEOXYZ 

7 

GEOXY2 

3 

GEOXYZ 

A 

GEOXYZ 

S 

GEOXYZ 

6 

GEOXY2 

7 

GEOXYZ 

8 

GEOXYZ 

9 

GEGXYZ 

10 

GEOXYZ 

11 

GEOXYZ 

12 

GEOXYZ 

13 

GEOXYZ 

14 

GEOXYZ 

15 

GEOXYZ 

16 

GEOXYZ 

17 

GEOXYZ 

18 

GEOXYZ 

19 

GEOXYZ 

20 

GEOXYZ 

21 

GEOXYZ 

22 

GEOXYZ 

23 

GEOXYZ 

24 

GEOXYZ 

25 

GEOXYZ 

26 

GEOXYZ 

27 

GEOXYZ 

28 

GEOXYZ 

29 
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nnnnnnnnonnnnnonnnnnonnnnnnnnnnnnnrinnnnnon 


ccc 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

ccc 


SUBROUTINE  GLITTR( THETAI , WIND, SPCULR, ZLAM.l DAY, IF  IRES, ESURF 1, 

*  SFR.EPSO) 

SUBROUTINE  GLITTR,  CALLED  FROM  ESURF  WHEN  THE  LINE-OF-SIGHT 
INTERSECTS  A  WATER  SURFACE,  PROVIDES  (1A)  THE  BIDIRECTIONAL 
REFLECTANCE-DISTRIBUTION  FUNCTION  ( BRDF )  AND  (IB)  DIRECTIONAL 
EMISSIVITY  OF  THE  WATER  SURFACE  AT  THE  INTERSECTION  POINT  OF 
THE  OPTICAL  LINE-OF-SIGHT  FROM  THE  DETECTOR  AND  (2)  THE 
GEOGRAPHIC  COORDINATES  (NORTH  LATITUDE  AND  EAST  LONGITUDE)  OF 
THE  POINT  ON  A  SMOOTH  HORIZONTAL  SURFACE  FOR  A  SPECULAR 
REFLECTION  OF  A  RAT  FROM  THE  SOURCE  TO  THE  DETECTOR,  IF 
REQUESTED  (BY  LOGICAL  PARAMETER  SPCULR  *  .TRUE.  IN  ARGUMENT 
LIST).  ONLY  THE  DIRECTIONAL  EMISSIVITY  IS  PROVIDED  IF  THERE 
IS  NO  SOURCE. 

INPUT  PARAMETERS 
ARGUMENT  LIST 

THETAI  -  ZENITH  ANGLE  OF  SOURCE  (SUN  OR  FIREBALL)  AT  THE 
INTERSECTION  POINT  OF  LINE-OF-SIGHT  FROM  DETECTOR 
TO  EARTH'S  SURFACE  (RADIANS) 

WIND  *  WIND  SPEED  AT  41  FEET  ABOVE  SEA  LEVEL  (METERS/SEC) 
SPCULR  »  LOGICAL  PARAMETER 

■  .TRUE.  COMPUTE  COORDINATES  OF  SPECULAR 
REFLECTION  POINT 

-  .FALSE.  DO  NOT  COMPUTE  COORDINATES  OF  SPECULAR 
REFLECTION  POINT 
ZLAM  -  WAVELENGTH  (MICROMETERS) 

IDAY  -  INDEX  FOR  DAYLIGHT  CONDITIONS  AT  POINT  P 

*  0  IF  SOLAR  ZENITH  ANGLE  .GT.  90  DEGREES 

*  1  IF  SOLAR  ZENITH  ANGLE  .LE.  90  DEGREES 
IF  IRES  -  FLAG  FOR  INCLUSION  OF  FIREBALLS 

*  0  IF  NO  FIREBALL  IS  BEING  CONSIDERED 
.GT.  0  IF  FIREBALLS  ARE  BEING  CONSIDERED 

ESURF 1  -  LOGICAL  PARAMETER 

*  .TRUE.  IF  ESURF  IS  CALLED  FOR  THE  FIRST  TIME  FROM 

SURRAO  AND  EPSD  IS  WANTED  AS  AN  OUTPUT, 
WHICH  IS  ALWAYS  THE  CASE  IN  THE  NBR  MODULE 

*  .FALSE.  IF  ESURF  IS  NOT  BEING  CALLED  FOR  THE  FIRST 

TIME  FROM  SURRAD  AND  A  RECOMPUTATION  OF 
EPSD  IS  NOT  NEEDED 

TECTOR  COMMON 

DETLAT  -  DETECTOR  NORTH  LATITUDE,  RADIANS 
OETLON  -  DETECTOR  EAST  LONGITUDE,  RADIANS 
OETALT  -  DETECTOR  ALTITUDE,  XM 

DETZEN  -  DETECTOR  ZENITH  ANGLE  AT  POINT  P,  RADIANS 
POSITN  COMMON 

POSLAT  -  NORTH  LATITUDE  OF  INTERSECTION  POINT  OF  LINE-OF- 
SIGHT  FROM  DETECTOR  TO  EARTH'S  SURFACE  (RADIANS) 
POSLON  -  EAST  LONGITUCE  OF  INTERSECTION  POINT  OF  LINE-OF- 
SIGHT  FROM  DETECTOR  TO  EARTH'S  SURFACE  (RADIANS) 
POSALT  -  ALTITUDE  OF  POINT  P  AT  WHICH  LINE-OF-SIGHT 
INTERSECTS  EARTH'S  SURFACE,  KM 
SOURCE  COIWN 

SRCLAT  -  NORTH  LATITUDE  OF  SOURCE  (SUN  OR  FIREBALL)  RADIANS 
SRCION  -  EAST  LONGITUDE  OF  SOURCE  (RADIANS) 

SRCALT  -  ALTITUOE  OF  SOURCE,  IF  NOT  THE  SUN  (KM) 

SRCFLG  -  1,  IF  SOURCE  IS  SUN 


GLITTR 

2 

GLITTR 

3 

GLITTR 

4 

GLITTR 

5 

GLITTR 

6 

GLITTR 

7 

GLITTR 

B 

GLITTR 

9 

GLITTR 

10 

GLITTR 

11 

GLITTR 

12 

GLITTR 

13 

GLITTR 

14 

GLITTR 

15 

GLITTR 

16 

GLITTR 

17 

GLITTR 

18 

GLITTR 

19 

GLITTR 

20 

GLITTR 

21 

GLITTR 

22 

GLITTR 

23 

GLITTR 

24 

GLITTR 

25 

GLITTR 

26 

GLITTR 

27 

GLITTR 

?R 

GLITTR 

29 

GLITTR 

30 

GLITTR 

31 

GLITTR 

3? 

GLITTR 

33 

GLITTR 

34 

GLITTR 

35 

GLITTR 

36 

GLITTR 

3-» 

GLITTR 

38 

GLITTR 

39 

GLITTR 

40 

GLITTR 

41 

GLITTR 

42 

GLITTR 

43 

GLITTR 

44 

GLITTR 

45 

GLITTR 

46 

GLITTR 

47 

GLITTR 

48 

GLITTR 

49 

GLITTR 

50 

GLITTR 

51 

GLITTR 

52 

GLITTR 

53 

GLITTR 

54 

GLITTR 

55 

GLITTR 

56 

GLITTR 

57 

GLITTR 

58 

260 


c 

-  2,  IF  SOURCE  IS  FIREBALL 

GLITTR 

59 

c  * 

*  OUTPUT  PARAMETERS 

6LITTR 

60 

c 

ARGUMENT  LIST 

GLITTR 

61 

c 

SFR  -  F  SUB  R  (2,D(2),ZLAM,THETA1,THETAR)  (1/SR) 

GLITTR 

62 

c 

-  BIDIRECTIONAL  REFLECTANCE-DISTRIBUTION  FUNCTION 

GLITTR 

63 

c 

FOR  A  HINO-RUTFLED  SURFACE. 

GLITTR 

64 

c 

EPSD  -  (  l.O-RWHTHETAft)-  )  (DIMENSIONLESS) 

GLITTR 

65 

c 

-  OIRECTIONAL  t'MISSIVITY,  WHERE  RHO(THETAR)  IS  THE 

GLITTR 

66 

c 

SPECULAR  REFLECTANCE  AT  ZENITH  ANGLE  THFTAR 

GLITTR 

67 

c 

FOR  A  SMOOTH  HORIZONTAL  SURFACE. 

GLITTR 

68 

c 

POSITN  COMMON 

GLITTR 

69 

c 

(THIS  OUTPUT  OBTAINS  ONLY  IF  SPCULR* .TRUE . ) 

GLITTR 

70 

c 

SPCLAT  -  NORTH  LATITUDE  OF  POINT  ON  SMOOTH  HORIZONTAL 

GLITTR 

71 

c 

SURFACE  FOR  A  SPECULAR  REFLECTION  FROM  THE 

aim 

72 

c 

SOURCE  TO  THE  DETECTOR,  RADIANS 

GLITTR 

73 

c 

SPCLON  -  EAST  LONGITUDE  DF  POINT  ON  SMOOTH  HORIZONTAL 

aim 

74 

c 

SURFACE  FOR  A  SPECULAR  REFLECTION  FROM  THE 

GLITTR 

75 

c 

SOURCE  TO  THE  DETECTOR,  RADIANS 

GLITTR 

76 

ccc 

GLITTR 

77 

COMMON/POSITN/  POSLAT.POSLON.POSALT, SPCLAT, SPCLON 

POSITN 

2 

S  ,C12LAT,C12L0N,C12ALT 

POSITN 

3 

COHION/ SOURCE/  SRCLAT,  SRCLON.SRCALT  ,SRCFLG,SRCZEN(  11 )  ,SRC$R{  11 ) 

SOURCE 

2 

C0M40N/TECT0R/  DETLAT,DETLON.DETAlT,OETZEN.OETAZ!(ll j 

TECTOR 

2 

LOGICAL  SPCULR.ESURF1 

GLITTR 

81 

DATA  PI, RE  /  3. 141592653590,6. 37103E*03  / 

GLITTR 

8? 

DATA  RSUN.EPSRN  /  1 .495979E+O8.4.6524E-03  / 

aim 

83 

cc 

GLITTR 

84 

cc 

NEED  NOT  COMPUTE  SFR  IF  NEITHER  SUN  NOR  FIREBALL  IS  CONSIDERED 

GLITTR 

B5 

cc 

AS  A  SOURCE,  SO  SET  IT  AS  WELL  AS  THE  COORDINATES  OF  THE 

GLITTR 

86 

cc 

SPECULAR  POINT  (ARBITRARILY)  TO  -1.0 

GLITTR 

87 

IF (  (I0AY.FQ.1)  .OR.  ( 1FIRES.GT.0)  )  GO  TO  8 

GLITTR 

88 

SFR  -  -1.0 

GLITTR 

89 

DTZENP  -  DETZEN 

f-LI  ,TR 

90 

GO  TO  70 

GLITTR 

91 

cc 

GLITTR 

9? 

ccc 

GLITTR 

93 

ccc 

FIRST,  FOR  TILTEO  FACET  AT  POINT  P,  USE  LEVANON'S  EQUATIONS 

GLITTR 

94 

ccc 

FOR  TOTAL  TILT  MAGNITUDE  (BETA)  AND  DIRECTION  (THETA, PHI)  AND 

aim 

95 

ccc 

ANGLE  OF  INCIDENCE  (OMEGA).  NE  USE  HIS  EQUATIONS  REWRITTEN  IN 

GLITTR 

96 

ccc 

TERMS  OF  OUR  PARAMETER  EPSA. 

GLITTR 

97 

cc 

GLITTR 

98 

8  EPSA  -  (RE*PQSALT)/(RE+OETALT) 

GLITTR 

99 

cc 

GLITTR 

100 

cc 

THETAP  -  NORTH  LATITUDE  OF  POINT  P  RELATIVE  TO  DETECTOR 

GLITTR 

10! 

THETAP  -  POSLAT-DETLAT 

GLITTR 

10? 

CSTHTP  =  C05( THETAP) 

GLITTR 

103 

cc 

GLITTR 

104 

cc 

PHIP  *  EAST  LONGITUDE  OF  POINT  P  RELATIVE  TO  DETECTOR 

GLITTR 

105 

PHIP  *  PO5L0N-DETL0N 

GLITTR 

106 

CSPHIP  «  COS(PHIP) 

GLITTR 

107 

cc 

GLITTR 

108 

cc 

PHIL  -  EAST  LONGITUDE  OF  POINT  O-SUB-L  RElATIVE  TO  DETECTOR 

GLITTR 

109 

cc 

(LEVANON  (LE-71B)  EQ.  U)). 

GLITTR 

110 

cc 

POINT  O-SUB-L  IS  DEFINED  BY  THE  SEA  SURFACE  AND  A 

GLITTR 

111 

cc 

VECTOR,  STARTING  FROM  THE  EARTH'S  CENTER,  PARALLEL  TO 

GLITTR 

11? 

cc 

THE  RAT  FROM  THE  DETECTOR  TO  THE  REFLECTION  POINT  P. 

GLITTR 

113 

EPTHTP  -  EP$A»CSTHTP 

GLITTR 

114 

261 


PHIL  *  ATAN(  -EPTHTP‘SIN(PHIP)/(1.-EPTHTP*CSPHIP)  ) 

GlITTR 

115 

cc 

THETAL  =  NORTH  LATITUDE  OF  POINT  Q-SUB-l  RELATIVE  TO  DETECTOR 

GLITTR 

116 

cc 

(LEVANON  EQ.  (2)). 

GLITTR 

117 

ROOT  -  SORT (  1.0-2. *EPTHTP*CSPHI P+EPTHTP*EPTHTP  ) 

GLITTR 

IIP. 

THETAL  =  ATAN(  -EPSA*SIN(THETAP) /ROOT  } 

GLITTR 

119 

CSTHTL  =  COS( THETAL) 

GLITTR 

120 

cc 

GLITTR 

121 

cc 

THETAS  =  NORTH  LATITUDE  OF  SOURCE  RELATIVE  TO  DETECTOR 

GLITTR 

12? 

THETAS  =  .RCLAT -DETLAT 

GLITTR 

123 

CSTHTS  =  COS( THETAS) 

GLITTR 

1?« 

cc 

PHIS  -  EAST  LONGITUDE  OF  SOURCE  RELATIVE  TO  DETECTOR 

GLITTR 

125 

PHIS  »  SRCLON-DETLON 

GLITTR 

126 

cc 

GLITTR 

127 

cc 

PHIN  =■  EAST  LONGITUDE  OF  POtNT  O-SUB-N  RELATIVE  TO  DETECTOR 

GLITTR 

128 

cc 

(LEVANON  EO.  (3)). 

GLITTR 

129 

cc 

POINT  Q-SUB-N  IS  DEFINED  BY  THE  SEA  SURFACE  AND  A 

GLITTR 

130 

cc 

VECTOR.  STARTING  FROM  THE  EARTH'S  CENTER.  PARALLEL  TO 

GLITTR 

131 

cc 

THE  NOMAL  RE0U1RED  FOR  REFLECTION  FROM  POINT  P. 

GLITTR 

13? 

AAA  =  CSTHTL*S!N  '  'HIL  )  +  CSTHTS*SIN(  PHI  S) 

GLITTR 

133 

8BB  =  C$THTL*COS(PHIL)  ♦  CSTHTS*COS( PHIS! 

GLITTR 

134 

PHIN  =  ATAN{  AAA/BBB  j 

GLITTR 

13S 

cc 

THETAN  =  NORTH  LATITUDE  OF  POINT  O-SUB-N  RELATIVE  TO  DETECTOR 

GLITTR 

136 

cc 

(LEVANON  EQ.  (4)). 

GLITTR 

137 

ROOT  =  CSTHTL ‘CSTHTL  +  CSTHTS»CSTHTS  ♦  2.*CSTHTL«CSTHTS* 

GLITTR 

138 

I  COS( PHIL-PHI S) 

GLITTR 

139 

THETAN  =  ATAN(  (SIN(THETAL)+SIN(THETAS) )/SORT(ROOT)  ) 

GLITTR 

140 

cc 

GLITTR 

141 

cc 

Pill  «  TILT  TOWARD  THE  EAST  AT  THE  REFLECTION  POINT  P 

GLITTR 

14? 

cc 

(LEVANON  EQ.  (5)). 

GLITTR 

143 

PHI  =  PHIN-PHIP 

GLITTR 

144 

cc 

THETA  -  TILT  TOWARD  THE  NORTH  AT  THE  REFLECTION  POINT  P 

GLITTR 

145 

cc 

(LEVANON  EQ.  (6)). 

GLITTR 

146 

THETA  =  THETAN-THETAP 

GL  ITTR 

147 

cc 

GLITTR 

148 

cc 

BETA  *  TOTAL  TILT  MAGNITUDE  AT  THE  REFLECTION  POINT  P 

GLITTR 

149 

cc 

(LEVANON  EO-  (7)). 

GLITTR 

ISO 

ROOT  =  TAN(THETA)**2  +  TAN(PHI)«2 

GLITTR 

151 

BETA  =  ATAN(  SORT(ROOT)  ) 

GLITTR 

15? 

cc 

GLITTR 

1S3 

cc 

OHEGA  =  ANGLE  OF  INCIDENCE  AT  REFLECTION  POINT  P 

GLITTR 

164 

cc 

(LEVANON  EQ.  (8)). 

GLITTR 

1 56 

ROOT  =  TAN(THETAN-THETAS)**?  ♦  TAN(PH) N-PHI S)**2 

GLITTR 

156 

OMEGA  =  ATAN(  SQRT ( ROOT )  1 

GlITTR 

1ST 

cc 

GLITTR 

158 

cc 

SiGSQ  =  MEAN  SQUARE  SLOPE  REGARDLESS  OF  DIRECTION 

GL  I TTR 

1  S° 

SIGSO  -  (3.0  ♦  5.1?*WIN0)*l.E-03 

GLITTR 

160 

cc 

GLITTR 

161 

cc 

SMALL P  •  PROBABILITY  FOR  OCCURRENCE  OF  SLOPE  BETA 

GLITTR 

16? 

TBETA  *  TAIN  (BETA) 

GLITTR 

163 

SMAlLP  »  E*P(  -TBETA*TSETA/5IG50  !/(PI*SIGSQ) 

GLITTR 

164 

cc 

GLITTR 

166 

CALL  FRESNLtZLAM, OMEGA, RHO) 

GLI’TR 

166 

cc 

NOW  HAVE  FRESNEL  MONOCHROMATIC  REFLECTANCE  (RHO) 

GLITTR 

16’ 

cc 

GLITTR 

16P 

cc 

IN  COMPUTING  SFR,  TO  AVOID  POSSIBLE  DIVISION  BY  ZERO  OR 

GL I TTR 

16R 

cc 

NEAR-ZERO  IF  THETA]  OR  DETZt'N  EXCEEDS  AN  ARBITRARILY- 

GLITTR 

170 

cc 

SELECTED  VALUE.  89.9  DEG.,  RESET  THETA!  AND/OR  OETZEN  TO  R9.9 

Gt  ITTR 

17] 

cc 

DEG.  DEFINE  TEMPORARY  VARIABLES  TO  AVOID  ALTERING 

GLITTR 

172 

cc 

ORIGINAL  VARIABLES. 

GLITTR 

173 

I WARN  ■=  0 

GLITTR 

174 

THTA1P  *  THETA1 

GLITTR 

175 

OTZENP  =  OETZEN 

GLITTR 

176 

P102  *  0.50*P1 

GLITTR 

177 

OELTHI  =  PI02-THETAI 

GLITTR 

178 

OELTHR  =  P1D2-DETZEN 

GLITTR 

179 

IF (  OELTHI ,GE . 1 . 745E-03  )  GO  TO  101 

GLITTR 

180 

THTA1P  =  PID2-1.745E-03 

GLITTR 

181 

I  WARN  -  1 

GLITTR 

182 

101 

IF (  OELTHR. GE.1.745E-03  )  GO  TO  102 

GLITTR 

183 

DTZENP  *  PI02-1.745E-03 

GLITTR 

184 

IWARN  ■  1 

GLITTR 

185 

102 

IF (  IWARN. EQ.O  )  GO  TO  104 

GLITTR 

186 

CC 

WRITE{6,103) 

GLITTR 

187 

103 

FORMAT  (1H0.9X.44H  ***  NOTE  ***  FROM  SUBROUTINE  GLITTR 

***  / 

GLITTR 

188 

1  10X.5SHTHETAI  OR  OETZEN  EXCEEDS  AN  ARBITRARILY-SELECTED 

VALUE,/ 

GLITTR 

189 

2  10X.55H89.9  DEGREES,  TO  WHICH  THETAI  OR  OETZEN  HAS  8FEN  RESET  / 

„Gl!TTR 

190 

3  10X.55HTO  AVOID  POSSIBLE  DIVISION  BY  ZERO  OR  NEAR-ZERO 

IN  / 

flLITTR 

191 

4  10X.15HCOMPUT1NG  SFR.  / 

GllTTR 

192 

5  10X.30HUSER  SHOULD  VERIFY  THAT—  / 

GLITTR 

193 

6  10X,6SH  (1)  THE  CODE  HAS  A  PROPER  VALUE  OF  THETAI  OR 

OETZEN  / 

GLITTR 

194 

7  10X.20H  AND,  IF  SO.  / 

GLITTR 

195 

8  IOX.55H  (2)  WHETHER  OR  NOT  RESETTING  OF  THETAI  OR  DETZEN  / 

GLITTR 

196 

9  10X.40H  TO  89.9  DEGREES  IS  SATISFACTORY.  ) 

GLITTR 

197 

CC 

GLITTR 

198 

104 

SHADOW  *  1.0 

GLITTR 

199 

IF I  WIND. EQ. 0.0  )  GO  TO  107 

GLITTR 

200 

CC 

SHADOW  *  SHADOWING  FACTOR  8ASE0  ON  WORK  OF  SAUNDERS 

(SA-67, 

GLITTR 

201 

CC 

SA-68C)  BUT  EXTENDED  TO  PERMIT  A  BISTATIC  DEPENDENCE 

GLITTR 

202 

CC 

ON  THE  ZENITH  ANGLES  OF  BOTH  INCOMING  AND  OUTGOING 

GLITTR 

203 

CC 

RAYS 

GLiTTR 

204 

PISQ  =  SORT(  PI  ) 

Gl  ITTR 

205 

SIGS  »  SORT(  5.12E-Q3*WInO  ) 

GLITTR 

206 

THETV2  »  ATAN2(  0.50, SIGS  ) 

GLITTR 

207 

cc 

THETV2  is  THE  ZENITH  ANGLE  BELOW  WHICH  ESSENTIALLY 

GLITTR 

208 

cc 

NO  SHADOWING  OCCURS. 

GLITTR 

209 

SOFSVI  *  1.0 

GL 1 TTR 

210 

IF (  THETAI. LT.THETV2  )  GO  TO  105 

GLITTR 

211 

SVI  =  1.0/(SIGS*TAN(THTAIP)) 

GLITTR 

212 

SOFSVI  *  2 .07 ( 1 .0*ERF { SVI  )+E7.P(-SVI*SVI )  / ( PI 50*SVI )  1 

GLITTR 

213 

105 

.  SOFSVR  -  1.0 

GLITTR 

214 

IF (  DETZEN. LT.THETV2  )  GO  TO  106 

GLITTR 

215 

$VR  -  1.0/(SIGS*TAN{OTZENP)) 

GLITTR 

216 

SOFSVR  -  2.0/(1.0*ERF(SVR)+EXP(-SVR*SVR)/(PI5Q*SVRn 

GLITTR 

217 

106 

i  SHADOW  =  SOF SVI *50F SVR 

GL I TTR 

218 

CC 

GUTTP 

219 

107 

SFR  -  0.25*RHO*SMALLR/(COS(DTZENP)»COS(T>ITAIP)) 

GLITTR 

220 

SFR  =  SFR* SHADOW/ COS! BETA)** 4 

GvIttr 

221 

cc 

GlIttr 

22? 

cc 

GLITTR 

223 

CC 

GLITTR 

224 

IF!  .NOT . SPCULR  )  GO  TO  70 

GLITTR 

225 

cc 

GLITTP 

226 

CCC 

FORMULAS  FOR  SPCLAT  AND  SPCLON  **♦••*•*•** 

*  +  •  *  1 

'  GL !  rTP 

2?7 

cc 

Gl.  I  TTR 

7?? 
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CC  ALP  -  TOTAL  EARTH -CENTRAL  ANGLE  BETWEEN  PATS  TO  DETECTOR 

CC  AND  SOURCE. 

ALP  ■  C ANGLE (DETLAT,DETLON,SRCLAT,SRCLON) 

KFLG  *  SRCFLS+0.05 
GO  TO  (10,13),  KFLG 

CC  SET  EPSS  FOR  SUN  BEING  SOURCE. 

10  EPSS  «  (RE+POSALT)/RSUN 
SO  TO  14 

CC  SET  EPSS  FOR  FIREBALL  BEING  SOURCE. 

12  EPSS  *  (RE*POSALT)/(RE+SRCALT) 

C  *  *  « 

C  *  *  *  START  OF  ITERATIVE  PROCEDURE  FOR  THE  SOLUTION  OF  THE 
C  REFLECTION  POINT  (IN  TERMS  OF  ALPA  AND  ALPS). 

C  THE  METHOD  USED  !S  NtWTON-RAPHSON. 

C  *  *  * 

14  KOUNT  «  0 

FACT  *  (1.0-EPSA)/((1.0-EPSA)+(1.0-EPSS)) 

C  THE  INITIAL  GUESS  FOR  ALPA  IS  GIVEN  BY  FACT*ALP 

ALPA  -  FACT*ALP 
16  KOUNT  «  KOUNT+l 
ALPS  -  ALP-ALPA 

BETA  *  ATAN(  EPSA*S1N( ALPA)/ (1.0-EPSA*COS( ALPA) )  ) 

BETS  -  ATAN!  EPSS*SIN( ALPS)/ (1 .0-EPS$*COS( ALPS) )  ) 

C  CALCULATE  F(ALPA),  FOFA,  AND  F  PRIME(ALPA) ,  FOFAP 

FOFA  -  ALP-?. *ALPA+flETS-BETA 
DD1  «  1.0  +  EPSS*( EFSS-2 . *COS( ALPS) ) 

DD3  *  1.0  ^  EPSA*(EPSA-2.*C0S(AlPA)) 

FOFAP  «  EPSS*( EPSS-COS( ALPS) ) /D01  -  2.0 
FOFAP  *  EPSA*( EPSA-COS( ALPA) ) /D02  +  FOFAP 
DELTA  •  (ALPA+B£TA)-(ALP5+BETS) 

C  UPDATE  ALPA  — 

C  ALPA  NEW  -  ALPA  OLD  -  F ( ALPA  OLO)/E  PRII*(  ALPA  0LD1 

ALPA  *  ALPA-FOFA/FOFAP 

C  CHECK  FOR  SOLUTION  OR  IF  NUMBER  OF  ALLOWED  ITERATIONS 

C  HAS  BEEN  EXCEEDED 

IF (  ABS( DELTA) .LE.2.0E-05  )  GO  TO  18 
JF(  KOUNT. GE. 100  )  GO  TO  18 
GO  TO  16 
C  *  *  * 

C  *  *  *  END  OF  ITERATIVE  PROCEDURE. 

C  *  *  * 

18  AlPS  *  ALP-ALPA 
ALP5D  *  ALP5*1B0./PI 
ALPAO  •  ALPA*180./PI 
WR ITE(6, 5)  ALPAO.ALPSO, KOUNT, EPSA.EPSS 
5  FORMA"  (13H0  ALPHA  A  -,F13.4,5X,11H  ALPHA  S  *,F1?  *,5X,I5. 

•  12H  'TER AT  IONS, SX ,6H  EPSA  =  ,E13.4,5X,6H  EP5S*,tl3.4) 

CALL  GCRCuE(OETLAT .DETLON, SRCLAT.SRClON  ALP, ALPA, SPCLAT, SPCLON) 
CC  NOW  HAVE  SPCLAT  AND  SPCLON 

CC 

GO  TO  BO 
70  SPCLAT  *  -1.0 
SPCLON  •  -1.0 

80  IF (  .N0T.ESURF1  )  RETURN 
CC 

CCC  FORMULAS  FOR  EPSD 

CC 

CALL  FRESNL(3LAM,DTZENP.RH0) 

CC 

CC  COMPUTE  EPSD 

EPSD  *  l.O-RHO 
RETURN 
END 
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GUTTR  375 

GUTTR  276 
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SUBROUTINE  PATH*  FIRST,  I SHELL,  DS.  XFRACS  ) 

PATH 

? 

c 

PATH 

3 

c 

♦PATH*  DEVELOPS  THE  PATH  INTEGRALS  FOR  ATMOSPHERIC  ABSORPTION. 

PATH 

4 

c 

PATH 

S 

CIJ 

PATH 

6 

CLJ 

INPUT  PARAMETERS 

PATH 

7 

CIO 

ARGUMENT  LIST 

PATH 

8 

CLJ 

FIRST  *  LOGICAL  INITIALIZATION  SWITCH 

PATH 

9 

CLJ 

*  .TRUE.  FOR  FIRST  CALL  (I.E.,  CORRESPONDING  TO 

PATH 

10 

CLJ 

PATH  FROM  RX  TO  RY  IN  TRNSCO) 

PATH 

11 

CLJ 

«  .FALSE.  FOR  SUBSEQUENT  CALLS  (I.E.,  CORRESPONDING 

PATH 

1Z 

CLJ 

TO  PATH  FROM  RY  TO  RZ  IN  TRNSCO) 

PATH 

13 

CLJ 

ISHELL(l)  *  INOX ( I )  IN  CALL  FROM  TRNSCO  OR  SUKPAD 

PATH 

14 

CLJ 

ISHaUZ)  •  INDX(  1+1 )  IN  CALL  FROM  TRNSCO  OR  SURRAD 

PATH 

IS 

CLJ 

OS  *  DS(I+1]  IN  CALL  FROM  TRNSCO  OR  SURRAD. 

PATH 

16 

CLJ 

NOTE...  IT  IS  ALWAYS  TRUE  THAT  DS(1 )-0.0  AND 

PATH 

17 

CLJ 

OS(NC+l)=-l.,  WHERE  NC  IS  THE  NUMBER  OF  PATH 

PATH 

IB 

CLJ 

SEGMENTS  PLUS  ONE.  ATMRAO  WILL  NOT  BE  CALLED 

PATH 

19 

CLJ 

WITH  !*NC. 

PATH 

ZO 

CLJ 

XFRACS(l)  *  XFRACS(I)  IN  CALL  FROM  TRNSCO  OR  SURRAD 

PATH 

Zl 

ClJ 

XFRACS(Z)  -  XFRACSO+l)  IN  CALL  FROM  TRNSCO  OR  SURRAD. 

PATH 

22 

CLJ 

NOTE.  THIS  ARRAY  XFRACS  (DIMENSIONED  2)  IS  NOT  THE 

PATH 

23 

CLJ 

SAME  AS  THE  ARRAY  XFRACS  (DIMENSIONED  1^0)  IN 

PATH 

24 

CLJ 

SUBROUTINES  STEP.  STEPS,  AND  TRNSCO. 

PATH 

25 

CLJ 

(  SEE  NOTE  IN  SUBROUTINE  ATWAD  ) 

PATH 

26 

CLJ 

XYZCOM  COMMON 

PATH 

27 

CLJ 

NS  *  NUMBER  OF  ALTITUOE  BOUNDARIES 

PATH 

ZB 

CLJ 

TS( J)  -  TEMPERATURE  AT  ALTITUOE  BOUNDARY  J.  OEG  K  (J-l.NS) 

PATH 

?9 

CLJ 

PSlJ)  *  PRESSURE  AT  ALTITUDE  BOUNDARY  J,  ATM  (J*1,NS) 

PATH 

30 

CLJ 

XNSPEC(J.N)  -  SPECIES-N  DENSITY  AT  ALTITUOE  BOUNDARY  J,  1/CM**3 

PATH 

31 

CLJ 

(J-l.NS  ,  N-1,10) 

PATH 

3? 

CLJ 

OUTPUT  PARAMETERS 

PATH 

33 

CLJ 

XYZCOM  COWII 

PATH 

34 

CLJ 

Ud.N.Z)  *  CUMULATIVE  VALUE  OF  PATH  PARAMETER  U  (AREAL 

PATH 

35 

CLJ 

DENSITY)  FOR  TEMPERATURE- INDEX  I  AND  SPECIES  N  AT 

PATH 

36 

CLJ 

ENO  OF  LINE  SEGMENT  DS,  CM  AT  STP 

PATH 

37 

CLJ 

UP(I,N,Z)  -  CUMULATIVE  VALUE  OF  PATH  PARAMETER  UP  (PRODUCT  Or 

PATH 

38 

CLJ 

U  «ID  PRESSURE  P)  FOR  TEMPER PTI&F  INDEX  I  AND 

PATH 

39 

CLJ 

SPECIES  N  AT  END  OF  LINE  SEGMENT  DS,  ATM-CM 

PATH 

40 

CLJ 

AT  STP  FOR  U  AND  UP  (1*1, Z  .  N-1,10) 

PATH 

41 

CLJ 

PATH 

4? 

DIMENSION  XNSl(lO),  XNSZ(IO),  DU(10,10),  OUP(lO.lO),  ISHai(Z), 

PATH 

43 

1  XFRACS(Z) 

PATH 

44 

COMMON  /  XYZCOM  /  JTMTE,  LTMTE,  N5,  HSHaL (81 ),  TS(8I).  PS(B1), 

path 

45 

1  XNSPEC(81 ,10) ,  U{10,10,2),  UP(10,10,Z),  »«IS, 

PATH 

46 

Z  FACT 

path 

47 

C 

path 

48 

LOGICAL  FIRST 

path 

49 

c 

PATH 

50 

CLJ 

I1NTRP  IS  AN  ARITHMETIC  STATEMENT  FUNCTION  FOR  LINEAR 

PATH 

51 

CLJ 

INTERPOLATION,  RETURNING  THE  VALUE  XINTRP  AT  A  FRACTIONAL 

path 

5? 

CLJ 

DISTANCE  (l.-XFRAC)  BETWEEN  END-POINT  VALUES  Z1  AND  12. 

PATH 

53 

CLJ 

PATH 

54 

XINTRPf  Zl,  ZZ  )  -  Z1  *  XFRAC  +  Z?  *  (  1 .  -  XFRAC  ) 

PATH 

55 

C 

PATH 

56 

IF  (  .NOT.  FIRST  )  GO  TO  1 

PATH 

57 

C 

INITIALIZATIONS 

PATH 

5R 
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CLJ 

CLJ 


C 

CIO 

CLJ 

CLJ 


HDW  ZERO  SECOND* HALVES  OF  U  AND  UP  ARRAYS,  WHICH  IS  WHERE  WE 
ACCUMULATE  OUR  OUTPUT  RESULTS  FOR  THESE  ARRATS. 

CALL  TWIT  (  -100,  0.,  U(l.l,2)  1 
CALL  XM1T  (  -100,  0..  UP(1,1.2)  ) 

1  LI  *  1SHELL(1 ) 

L2  »  ISHaL(?) 

SFT  SHELL  PROPERTIES  AT  FIRST  POINT 

NOW  TRANSFER  SECOND-HALVES  OF  U  AND  UP  ARRAYS  TO  FT RJT-MAL VES , 
t.E.  INITIALIZE  THE  STARTING  POINT  OF  THE  SECOND  lFG  TO 
VALUES  AT  END  OF  FIRST  LEG  OF  PATH. 

call  xmit  ;  loo,  ud.i.z),  u  ) 

CALL  XMIT  (  100.  UPd.1.2).  UP  ) 

IF  (  L?  .EO.  0  )  RETURN 

INTERPOLATE  FOR  P.  T,  AND  C(SPECIES)  AT  FIRST  POINT 
XFRAC  =  XFRACS(l) 


PSL1 

TSLl 


TSLl 
DO  3 


PS(Ll) 

_  TS(L1) 

IF  (  XFRAC  .£0.  1.  )  GO  TO  2 
PSLl  -  XINTRP!  PS(Ll),  PS(L2)  ) 

XINTRP!  TS(L1).  TS(L2)  ) 

N-1.10 

XNSPEC(Ll.N)  *  XNSPEC(L?,N)  .EO.  0.  ) 

I  GO  TO  3 

XNSl(N)  -  XIHTRP(  XNSPEC(Ll.N).  XNSpEC{L?,N)  ) 

3  CONTI,^^,()olATE  fqr  Pi  T>  WO  C(SPECIES)  AT  SECOND  POINT 
XFRAC  •  XFRACSI21 

P5L2  -  PS(L2 ) 

TSL2  =  TS(L2l 

IF  (  XFRAC  .EO.  1.  )  GO  TO  « 

PSL2  *  XINTRP!  PS(L2),  PSfLl)  ) 

TSL2  *  XINTRP(  TS(L2 ) ,  TS(Ll)  ) 

4  00  5  N  =  1 ,10 
XNS2(N)  -  XNSPEC(L2,N) 

IF  {  XFRAC  .EQ.  1.  -OR. 

I  GO  TO  5 


XNSPEC(U.N)  ♦  XNSPEC(L2,N)  .EO.  0.  1 


XINTRPt  XNSPEC(L2,N),  XNSPEC(Ll.N)  ) 


XNS?(n; 

5  CONTINUE 

COMPUTE  DIFFERENTIAL  0  AND  UP 
CALL  SEGMENT  (  10,  0..  XNS1,  PSLl,  TSLl, 
J  00,  OUP  ) 

ACCUMULATE  U  AND  UP  AT  SECOND  POINT 
00  6  N=l,10 
DO  f  1=1,2 

U'.,N,2)  «  U(I,N,2)  ♦  OU(l.N) 

UP(I,N,2)  "  UP ( 1  ,N,2 )  ♦  DUF'I.N) 

6  CONTINUE 
RETURN 
END 


OS,  XNS2,  PSL2.  TS12, 


PATH 

59 

PATH 

60 

PATH 

61 

PATH 

62 

PATH 

63 

PATH 

64 

PATH 

6S 

PATH 

66 

PATH 

62 

PATH 

68 

PATH 

69 

PATH 

70 

PATH 

71 

PATH 

72 

PATH 

73 

PATH 

74 

PATH 

75 

PATH 

76 

PATH 

77 

PATH. 

78 

PATH 

79 

PATH 

80 

PATH 

8! 

PATH 

82 

PATH 

83 

path 

84 

PATH 

85 

PATH 

86 

path 

87 

path 

88 

path 

89 

PATH 

90 

PATH 

91 

path 

92 

path. 

93 

path 

9« 

PATH 

95 

PATH 

96 

PATU 

97 

PATH 

9? 

PATH 

99 

PATH 

100 

PATH 

101 

path 

102 

PATH 

103 

PSTH 

104 

PATH 

105 

PATH 

106 

PATH 

1G’ 

PATH 

IDS 

PAth 

10® 

PAth 

110 

/o') 


FUNCTION  PLANCK  1  T,  W  ) 

PLANCK 

2 

c 

PLANCK 

3 

c 

•PLANCK*  GIVES  THE  BLACK  BOOT  SPECTRUM 

PLANCK 

4 

c 

(  MATTS  CM-2  ST-1  (CM-l)-l  ) 

PLANCK 

5 

c 

PLANCK 

6 

ClJ 

PLANCK 

7 

CLJ 

INPUT  PARAMETER 

PLANCK 

B 

CLJ 

ARGUMENT  LIST 

PLANCK 

9 

CLJ 

T  *  TEMPERATURE,  OEG  K 

PLANCK 

10 

CLJ 

W  *  WAVENUMBER.  1/CM 

PLANCK 

11 

CLJ 

DATA  STATEMENTS 

PLANCK 

12 

CLJ 

C  -  VELOCITY  OF  LIGHT,  CM/SEC 

PLANCK 

13 

CLJ 

H  -  PLANCK'S  CONSTANT,  J  SEC 

PLANCK 

14 

CLJ 

C*  •  C*H/K,  CM  OEGREE-K 

PLANCK 

15 

CLJ 

WHERE  K  *  BOLTZMANN  CONSTANT 

PLANCK 

16 

CLJ 

*  1.380662E-23  J/(OEG«EE-K) 

PLANCK 

17 

CLJ 

OUTPUT  PARAMETER 

PLANCK 

18 

CLJ 

FUNCTION 

PLANCK 

IP 

CLJ 

PLANCK  *  SPECTRAL  RADIANCE,  WATTS/(CH**?  SR  CM**-1) 

PLANCK 

20 

CLJ 

PLANCK 

21 

OATA  C  /  2.9979  25E10  /,  C*  /  1.438786  /,  H  /  6.626176E-3A  / 

PLANCK 

22 

CLJ 

PLANCK 

23 

PLANCK  «  0. 

PLANCK 

24 

IF  (  T  ,EQ.  0.  )  SO  TO  2 

PLANCK 

25 

Z  *  CW  /  T  •  V 

Planck 

26 

IF  l  2  .GE.  88.  )  GO  TO  2 

PLANCK 

27 

PLANCK  *  (  2.  *  C**2  *  W**3  /  (  EXP ( 2 )  -  1.  )  )  *  H 

PLANCK 

28 

CLJ 

PLANCK 

29 

CLJ 

TO  OBTAIN  PLANCK  IN  THE  UNITS  USED  BY  6RC, 

PLANCK 

30 

CLJ 

PHOTONS/ (CM**?  SEC  SR  CM**-1), 

PLANCK 

3! 

CLJ 

DIVIDE  BY  HCW=H*C*W  . 

PLANCK 

32 

CLJ 

PLANCK 

33 

CLJ 

TO  OBTAIN  PLANCK  IN  UNITS  OF  W/(CM**2  SR  MICRON),  MULTIPLY  BY 

PLANCK 

34 

CLJ 

l.E-OA*V*W  OR  BY  l.E+04/(ZLAMDA*ZLAMDA)  WHERE  ZLAMDA-] .ETO4/W 

PLANCK 

35 

CLJ 

PlANli. 

36 

2  RETURN 

PLANCK 

37 

END 

PLANCK 

38 

SUBROUTINE  REATAN(SR.EL,AZ,X£,YN.ZV) 

REATAN 

? 

CCC 

REATAN 

3 

C 

SUBROUTINE  REATAN  (A  MODIFIED  MARC  ROUTINE  CALLED  REAYY7 ) , 

REATAN 

4 

r 

GIVEN  THE  SLANT  RANGE,  ELEVATION  ANGLE,  AND  AZIMUTH  ANGLE  OF  A 

REATAN 

5 

c 

POINT  WITH  RESPECT  TO  SOME  REFERENCE  LOCATION,  PROVIDES  THE 

REATAN 

6 

c 

TANGENT-PLANE  COORDINATES  Of  THE  POINT  WITH  RESPECT  TO  THE 

REATAN 

7 

c 

SAME  REFERENCE. 

REATAN 

fi 

CCC 

RFAT AN 

0 

c 

INPUTS  FROM  CALL  STATEMENT 

reatan 

10 

c 

SR  *  slant  RANGE  OF  POINT,  cm 

REATAN 

I! 

c 

EL  -  ELEVATION  A“GLE  OF  POINT.  RADIANS 

reatan 

1? 

c 

AZ  *  AZIUJTH  ANGLE  Of  POINT,  RADIANS 

reatan 

17 

c 

output; 

reatan 

14 

c 

XE  =  X  COORDINATE  OF  POINT,  CM 

REATAN 

15 

c 

YN  =  Y  COORDINATE  Of  POINT,  CM 

REATAN 

16 

c 

ZV  -  Z  COORDINATE  OF  POINT,  CM 

REATAN 

1  7 

CCC 

REATAN 

1 8 

COSEL  *  COS! EL ) 

REATAN 

TO 

XE  -  SR*COSEL*SIN!AZ) 

reatan 

20 

YN  •  SR*COSEL*COSI  AZ ) 

REATAN 

?! 

ZV  »  SR*SIN(EL! 

REATAN 

2? 

OfTlJPp 

d  r  fi  t  Kh 

->-j 

end" 

REATAN 

?4 

SUBROUTINE  R INOUT (HAT, If  IRE, I  DAY) 

RINOUT 

2 

ccc 

R INOUT 

3 

c 

SUBROUTINE  R1NOUT,  GIVEN  THE  GEOGRAPHIC  LOCATIONS  OF  THE 

RINOUT 

4 

c 

SOURCES  (SUN  AND/OR  FIREBALLS),  THE  DETECTOR,  AND  THE 

RINOUT 

5 

c 

POSITION  P  OF  THE  INTERSECTION  OF  THE  LINE-OF-SIGHT  FROM  THE 

RINOUT 

6 

c 

DETECTOR  TO  THE  EARTH'S  SURFACE,  COMPUTES  THE  ZENITH  ANGLES 

RINOUT 

7 

c 

(AND,  FOR  FIREBALLS.  SLANT  RANGES)  OF  SOURCES  FROM  P  AND  THE 

RINOUT 

8 

c 

DIRECTION  OF  THE  RAY  FROM  F  TO  DETECTOR  IN  TERMS  OF  ZENITH 

RINOUT 

9 

c 

ANGLE  OF  THE  DETECTOR  AND  (IF  THE  SURFACE  IS  NOT  LAMBERTIAN 

RINOUT 

1C 

c 

( HAT *1 )  OR  HATER  (MAT*2))  THE  ABSOLUTE  VALUE  OF  THE  AZIMUTH 

RINOUT 

11 

c 

ANGLE  OF  SCATTER  WITH  RESPECT  TO  THE  PRINCIPAL  PLANE 

RINOUT 

12 

c 

CONTAINING  THE  INCOMING  RAY. 

RINOUT 

13 

ccc 

RINOUT 

14 

ccc 

INPUT  PARAMETERS 

RINOUT 

IS 

c 

ARGUMENT  LIST 

RINOUT 

16 

c 

IFIRE  -  NUMBER  OF  FIREBALLS  TO  BE  CONSIDERED  AS  SOURCES 

RINOUT 

17 

c 

(ALWAYS  ZERO  IN  NBR  MODULE) 

RINOUT 

18 

c 

MAT  «  INDEX  FOR  CATEGORY  OF  SURFACE  MATERIAL 

RINOUT 

19 

c 

-  1,  LAMBERTIAN  DIFFUSE  SURFACE  *  2,  WATER 

RINOUT 

20 

c 

-  3,  SNOW  *  4,  SAND  -  5.  SOIL  *  6,  FOLIAGE 

RINOUT 

21 

c 

*  7,  URBAN  MATERIAL 

RINOUT 

22 

c 

TECTOR  COMMON 

RINOUT 

23 

c 

OETLAT  -  NORTH  LATITUDE  OF  DETECTOR  SUBPOINT,  RADIANS 

RINOUT 

24 

c 

DETLON  -  EAST  LONGITUDE  OF  DETECTOR  SUBPOINT.  RADIANS 

RINOUT 

25 

c 

OETALT  -  ALTITUDE  OF  DETECTOR,  KM 

RINOUT 

26 

c 

F1RBAL  COMMON  (NOT  USED  IN  NBR  MODULE) 

RINOUT 

27 

c 

FBLAi(L)  -  NORTH  LATITUDE  OF  FIREBALL-L,  RADIANS 

RINOUT 

28 

c 

FBLON(L)  -  EAST  LONGITUDE  OF  FIREBALL-L,  RADIANS 

RINOUT 

29 

c 

FBALT(L)  -  ALTITUDE  OF  FIREBALL-L ,  KM 

RINOUT 

30 

c 

FBRINT(L)  -  RADIANT  INTENSITY  Of  FIREBALL-L.  WATTS/SEC 

RINOUT 

31 

c 

POSITN  COMMON 

RINOUT 

3? 

c 

POSLAT  -  NORTH  LATITUDE  OF  INTERSECTION  POINT  Of  LINE-Of- 

RINOUT 

33 

c 

SIGHT  FROM  DETECTOR  TO  EARTH'S  SURFACE,  RADIANS 

RINOUT 

34 

c 

POSION  -  EAST  LONGITUDE  OF.  INTERSECTION  POINT  OF  LINE-Of- 

RINOUT 

35 

c 

S1GHT  FROM  DETECTOR  TO  EARTH'S  SURFACE,  RADIANS 

RINOUT 

36 

c 

POSALT  -  ALTITUDE  OF  INTERSECTION  POINT  Of  LINE-OF-SIGHT 

RINOUT 

3? 

c 

FROM  DETECTOR  TO  EARTH'S  SURFACE,  KM 

RINOUT 

3S 

c 

SOLAR  P  COPWON 

RINOUT 

39 

c 

SOILAT  -  NORTH  LATITUDE  OF  SUBSOLAR  POINT,  RADIANS 

RINOUT 

40 

c 

SOLLON  -  EAST  LONGITUDE  OF  SUBSOLAR  POINT,  RADIANS 

RINOUT 

«1 

ccc 

OUTPUT  PARAMETERS 

RINOUT 

42 

c 

ARGUMENT  LIST 

RINOUT 

43 

c 

IDAY  -  INDEX  FOR  DAYLIGHT  CONDITIONS  AT  POINT  P 

RINOUT 

44 

c 

-0  IF  SOLAR  ZENITH  ANGLE  ,GT.  90.  DEGREES 

RINOUT 

4f 

c 

*1  IF  SOLAR  ZENITH  ANGLE  .LE.  90.  DEGREES 

RIN0U1 

46 

c 

TECTOR  COMMON 

RINOUT 

47 

c 

OETZEN  -  ZENITH  ANGLE  OF  RAY  REFLECTEO  AT  POINT  P  TOWARD 

RINOUT 

48 

c 

THE  DETECTOR,  RADIANS 

RINOUT 

49 

c 

DETAZI(l)  -  ABSOLUTE  VALUE  OF  AZIMUTH  OF  REFLECTED  RAY, 

RINOUT 

50 

c 

MEASURED  FROM  PRINCIPAL  PLANE  DETERMINED  BY 

RINOUT 

51 

c 

VERTICAL  PLANE  THROUGH  INCOMING  RAY  FROM  SUN, 

RINOUT 

5; 

c 

RADIANS 

RINOUT 

53 

c 

DETAZI  (L+l ) ,  l-l,  IFIRE  (NOT  USED  IN  NBR  MODINE) 

RINOUT 

54 

c 

-  ABSOLUTE  VALUE  Of  AZIMUTH  OF  REFLECTED  RAY, 

RINOUT 

55 

c 

MEASURED  FROM  PRINCIPAL  PLANE  DETERMINED  BY 

R  INOUT 

56 

c 

VERTICAL  PLANE  THROUGH  INCOMING  RAT,  RADIANS 

RINOUT 

57 

c 

SOIKCE  COWON 

RINOUT 

58 

268 


c 

$RCZEN(l)  -  ZENITH  ANGLE  OF  RAY  INCOMING  TO  POINT  P  FROM 

RINOUT 

59 

c 

THE  SUM,  RADIANS 

RINOUT 

60 

c 

S»CZEN(L*1).  1*1,  IFIRE  (NOT  USED  IN  RBR  MODULE) 

RINOUT 

61 

c 

-  ZENITH  ANGLE  Of  RAY  INCOMING  TO  POINT  P  FROM 

RINOUT 

6? 

c 

FIREBALL-L,  RADIANS 

RINOUT 

63 

c 

SRCSR(L+1).  1*1, IFIRE  (NOT  USED  IN  NBR  MODULE) 

RINOUT 

64 

c 

-  SLANT  RANGE  FROM  F1RE3ALL-L  TO  POINT  P.  KM 

RINO'JT 

66 

arc 

RINOUT 

66 

COWION/FIRBAL/  F8LAT(  10)  ,F8L0N(  10),FBALT(  10),f  BRINTf  10) 

F1RBAL 

2 

COAftON/  P0S1 TN  /  POSLAT ,  POSION ,  POSALT ,  SPCL AT .  SPCLOM 

POSITH 

2 

i  ,C12LAT,C12L0N,C12ALT 

POSITN 

3 

CO*40N/SA  TELL /  SATLAT, SATLON ,  SATAL T . $ATZ EN ,  SATAZ I 

SATELL 

2 

COWON/SOIARP/  SOLLAT.SOLLON.SOLIRR(IO) 

SOLARP 

2 

COMMON/SOURCE/  SRCLAT ,  SRCLON ,  SRCALT ,  SRCFLG ,  SRCZ  EN(11),SRCSR(11) 

SOURCE 

2 

COPKJN/TECTOR/  DETLAT,DETL0N,DETALT,DE7ZENtDETAZI(ll) 

TECTOR 

2 

DATA  PI, RE  /  3. 141592653590, 6. 37103£*O3  / 

RINOUT 

73 

ccc 

RINOUT 

74 

c 

UPON  BEING  CALLED  FROM  SUBROUTINE  SURRAD  INITIALLY  WITH 

RINOUT 

75 

c 

IF1RE-0  (EVEN  THOUGH  1FIRES  .GT.  0),  RINOUT  DECIDES  WHETHER 

RINOUT 

76 

c 

THE  SUN  CAN  BE  A  SOURCE,  DEPENDING  ON  ITS  ZENITh  ANGLE. 

RINOUT 

77 

ccc 

RINOUT 

78 

IF(  IFIRE. GT.O  )  GO  TO  20 

RINOUT 

79 

SINS1N  -  SIN( POSLAT) *S!N(SOLLAT) 

RINOUT 

SO 

COSCOS  -  COS(POSLAT)*COS(SOLLAT) 

RINOUT 

81 

CSSOLZ  *  SINSIN  +  COSCOS*COS(POSLON-$OLLON) 

RINOUT 

82 

IOAY  *  0 

RINOUT 

83 

IF(  CSSOLZ.LT. 0.0  )  GO  TO  10 

RINOUT 

84 

IOAY  -  1 

RINOUT 

85 

SRCZEN(l)  *  ACOS(  cssaz  ) 

RINOUT 

86 

10  CONTINUE 

RINOUT 

87 

cc 

RINOUT 

88 

cc 

COMPUTE  DETECTOR  ZENITH  .ANGLE,  OCTZEN,  AND,  IF  MAT  .GT.  2  AND 

RINOUT 

69 

cc 

IDAY=1,  THE  OETECTDR  AZIMUTH  ANGLE  FOR  SUN,  DETAZI(l). 

RINOUT 

90 

cc 

ALPHAD  *  EARTH-CENTRAL  ANGLE  BETWEEN  RAYS  TO  DETECTOR  AND 

RINOUT 

91 

cc 

LINE-OF-SIGHT  INTERSECT'*  ROW 

RINOUT 

92 

ALPHAD  -  CANGLE(0ETLAT,OETL0N, POSLAT. POSLON) 

RIsji.iT 

53 

EPSD  =  (RE+POSALT)/(RE*OtTALT) 

RINOUT 

94 

CO  *  (1.0-EPSD)/(l.O*EPS0) 

RINOUT 

95 

CO  *  2.0»ATAN(  CD/TAN(ALPHAD/2, )) 

RINOUT 

96 

BET  AO  -  0.5*(PI-ALPHAD-CT>) 

R I  NOLO 

97 

DETZEN  *  ALPHAD+BETAD 

RINOUT 

99 

IF (  (IDAY.EQ.O)  .OR.  (MAT.LE.2)  )  RETURN 

RINOUT 

99 

cc 

RINOUT 

100 

cc 

SET  SUM  INTO  SOURCE  COORDINATES. 

RINOUT 

101 

SRCLAT  -  SOLIAT 

RINOUT 

10? 

SRCLON  •  SOLION 

RINOUT 

103 

GO  TO  40 

RINOUT 

10" 

20  1*1 

R I  HOC 

105 

cc 

R INOJT 

106 

cc 

SET  FIREBALL-L  INTO  SOURCE  COORDINATES. 

RINOUT 

107 

30  SRCLAT  *  FBlAT(l) 

RINOUT 

108 

SRCLON  *  F8L0N(L) 

RINOUT 

109 

SP.CALT  •  FBALT(l) 

R 1N0UT 

no 

cc 

RINOUT 

111 

IF (  MAT.LE.2  )  GO  TO  60 

RINOUT 

11? 

cc 

RINOUT 

11? 

cc 

START  CALCULATION  OF  DETAZI(l)  OR  DETAZ 1  ( L •*•! ) ,  (l-l. IFIRE) 

RINOUT 

114 

269 


40  SINNP  •  COS(  POSLAT  ) 

R!NO"T 

115 

COSNP  -  SIN(  POSLAT  ) 

RINOUT 

116 

COSNS  *  $IN(  SRCLAT  ) 

R  INCUT 

117 

SINUS  -  COS(  SRCLAT  ) 

RINOUT 

lie 

TWOPI  *  PI+PI 

R I NOUT 

119 

PNS  -  A6S(  SRCLON-PCSLON  ) 

RINOUT 

120 

IF (  PNS.GE.PI  )  PNS  *  TWOPI-PNS 

RINOLFT 

171 

SINPNS  *  SIN{  PNS  ) 

RINOUT 

:?? 

PS  *  CAN£LE(POSLAT,POSLON,SRCLAT,SRCLON) 

RINOLTT 

1  ?3 

SINQSN  -  SINNP*SIN?NS/S!N(  PS  ) 

RINOUT 

i?« 

cc 

SOME  NUMERICAL  PRECAUTIONS  ARE  NECESSARY. 

RINOUT 

l?s 

A8SQSN  *  A8S(  SINOSN  ) 

RINOUT 

IPs 

A8S0NE  =  A8SQSN-1.0 

RINOUT 

I?7 

IF(  (ABSQSN.GT.1.0)  .AMD.  (ABS0NE.LE.1.0E-10)  ) 

RINOUT 

1?B 

*  SINQSN  -  SIGN(  1.0, SINQSN  ) 

RINOUT 

129 

QSN  *  AS1N(  SINQSN  ) 

RINOUT 

no 

COSNPR  =  COSNS*COS(  PS  ) 

RINOUT 

131 

IF{  COSNP. LT. COSNPR  )  QSN  *  PI-QSN 

R!#oirr 

132 

COSOSN  *  COS(  QSN  ) 

RINOUT 

133 

QNS  •  A8S(  SRCLON-OETLON  ) 

RINOUT 

134 

IF (  QNS.GE.PI  )  ONS  «  TMOPI-QNS 

RINOUT 

135 

COSQNS  *  COS(  QNS  ) 

RINOUT 

136 

SINQNS  =  S!N(  QNS  ) 

RINOUT 

137 

RNQS  *  ACOS(  SlNQNS*SINQSN*COSNS  -  COSQN$*COSQSN  ) 

RINOUT 

138 

SINNQS  *  SIN(  RNQS  ! 

RINOUT 

139 

QN  =  ASIN(  SINQSN*S INNS/ SINNQS  ) 

RINOUT 

140 

CSQSNR  *  -C0SQN5-C0S(  RNQS  ) 

RINOUT 

141 

IF (  COSOSN. LT. CSQSNR  )  QN  *  PI-QN 

RINOUT 

142 

SINAQ  -  COS(  QN^OETLAT  ) 

RINOUT 

143 

PSI  »  AS1N(  SINAQ*SINNOS/SIN<  ALPHAD  i  } 

RINO'JT 

144 

COSAQ  *  SIN(  ON+DEUAT  ) 

RINO'JT 

US 

QNP  =>  ABS'  OETLON-POSLON  ) 

RINO'JT 

146 

IF(  QNP.GE.PI  )  QNP  -  TWOPI-QNP 

R I  NOUT 

147 

SINQNP  «  SIN'  QNP  ) 

RINO'JT 

14? 

SINOP  -  SINQNP*SINNP/SINNQS 

RINOUT 

149 

SNQPSQ  >  SINQP'SINQP 

R I  MOOT 

150 

COSQP  =  SORT'  1.0- SNQPSQ  ) 

RINO'JT 

15! 

COSAQR  *  AL PH AD*CQ SOP 

RINOUT 

IS? 

IF (  COSAQ. LT. COSAQR  )  PSI  =  PI-PSI 

RINOUT 

153 

IFI  IFIRE. GT.O  )  GC  TO  50 

RINOUT 

154 

DETAJI(I)  -  PSI 

RINO’JT 

155 

RETURN 

RINOUT 

156 

cc 

RINCJ" 

157 

cc. 

-  RINOJT 

158 

cc 

THE  REMAINING  PORTION  QF  THIS  SUBROUTINE  15  not  USED  IN  THE 

RINOUT 

159 

rc 

NBH  MODULE. 

RINO'JT 

163 

SO  CONTINUE 

RINO'JT 

161 

cc 

SET  OETAZI'L+1). 

RIHDUT 

16? 

DETAZIfL*!)  *  PSI 

RINO’JT 

16? 

cc 

R!NQ<JT 

164 

cc 

COMPUTE  SRCZENU*!)  AND  ERCSRfL+H. 

RINOUT 

165 

cc 

AL  PH  AF  •  EARTH-CENTRAL  ANCLE  BETWEEN  RATS  TO  FIREBALL  AND 

RINO'JT 

ISf 

cc 

LINE  -OF -SIGHT  INTERSECTION  POINT 

RINO'JT 

167 

60  AL»HAE  *  C  ANGLE  v  POSLAT,  POSLQN,  SAIL  AT ,  SRC'  ON  1 

RINO'JT 

16? 

EPSF  -  (RE*POSALrV(RE+SRCALT) 

R!#0'JT 

16? 

Cf  »  n.0-EPSF)/f!.O*EP$F) 

r  !  ncv.,t 

17C 

CF  «  2.*ATAN<  CF/TAN'  ALPHAE  /?  .  )  ) 

0!^ 

PI 

BETAF  =  0.5*1  PI -ALPHAf-CF) 

R ;H?VT 

P? 

SRC2EN(  L+l )  *  ALPHA1  +BETAC 

R?Nf)UT 

3  73 

SRCSA(L*1)  =  RE*SIN{  Ai  PHAC  )/S!N>‘ BETAF  ) 

RINO’JT 

1  7  4 

IF (  L.GE.IFIRE  )  RETURN 

RINOUT 

PS 

L  *  L+l 

RINOUT 

P6 

GO  TO  30 

RINOUT 

P? 

END 

3 

PS 

270 


SUBROUTINE  C£CMENT  (  NSPEC.  XI.  NSi.  PI.  Tl,  X2,  HS2,  P?.  T?, 

SEGMENT 

2 

1  DU.  PUP  ) 

SEGMENT 

3 

c 

SEG“ENT 

A 

r 

*SEGMNT*  ENVELOPES  THE  ABSORBER  AND  PARTIAL  PRESSURE 

SEGMENT 

6 

C 

INTEGRALS  FOR  SPECIES  IN  THE  RATO  ELEMENT  FROM  POINT  1 

SEGMENT 

6 

C 

TO  PCI I N  2.  ALL  PROPEDT;ES,  TEMPERATURE,  PRESSURE,  AND 

SEGMENT 

7 

c 

CONCENTRATIONS,  are  assumed  to  vart  linearly  through  the 

segment 

R 

c 

path  element 

segment 

9 

c 

SEGMENT 

30 

CLJ 

input  PARAMETERS 

SEGMENT 

11 

CL  J 

ARGUMENT  LIST 

SEGMENT 

1? 

Cl  J 

NSPEC  =  NUMBER  OF  SECIES  (10.  SET  IN  CALL  FROM  PATH). 

SEGMENT 

13 

CL.l 

TVirSE  SPECIES  ARE  J  HFNT 1  FI  ED  BY  COMMENTS  IN 

SEGMENT 

14 

CLJ 

SUBROUTINE  shells. 

SEGMENT 

15 

CLJ 

XI  =  DISTANCE  ALONG  LINE  SEGMENT  (0..  StT  IN  CALL 

segment 

16 

CLJ 

FRO“  PATH),  CM 

SEG“FNT 

17 

CLJ 

IIS)  ■  XNS!  1 105-ARRAY ,  SET  IN  CALL  FROM  PA  TV, . 

SEGMENT 

IB 

CLJ 

-  ARRAY  OF  SPECIES  CONCENTRATIONS  AT  start  OF 

segment 

1R 

CLJ 

LINE  SEGMENT,  I /CM*-*  3 

StGMFNT 

?C 

CLJ 

Pj  *  PSLl.  SET  IN  CALL  FROM  PATH. 

SEGMENT 

21 

CLJ 

=  PRESSURE  AT  START  OF  LINE  SEGMENT,  ATM 

segment 

22 

CLJ 

Tl  =  TSL1,  SET  IN  CALL  FROM  PATH. 

.egment 

23 

CLJ 

-  TEMPERATURE  AT  START  OF  LINE  SEGMENT,  DE  X 

SEGMENT 

?A 

CLJ 

X?  *  OS,  SET  IN  CALL  FROM  PATH. 

SEGMENT 

25 

CLJ 

•  LENGTH  of  LINE  SEGMENT,  CM 

SEGMENT 

26 

CLJ 

NS''  =  XNS?(  101-ARRAY,  SET  IN  CALL  FROM  Path. 

SEGMENT 

27 

CLJ 

«  ARRAV  OF  SPECIES  CONCENTRATIONS  AT  END  OF 

SEGMENT 

28 

CLJ 

LINE  SEGMENT,  1/CM**3 

SEGMENT 

29 

CLJ 

P?  *  PS!?,  SC  IN  CALL  FROM  PATH. 

SEGMENT 

30 

CLJ 

-  PRESSURE  AT  END  OF  LINE  SEGMENT,  ATM 

SEG“ENT 

31 

Cl  J 

T?  =  T SL 2 ,  SET  IN  CALL  FROM  PATH. 

SEGMENT 

3? 

CLJ 

-  TEMPERATURE  AT  END  w  LINE  SEGMENT,  DEG  K 

SEG“ENT 

33 

CLJ 

XY  COMMON 

SEGMrSf 

’4 

CLJ 

"TMi  ,  TEMPERATURE  ARRAY  In  ATMOSPHERIC  TRANSMISSION 

SEG“ENT 

35 

CL- 

MOPE-,  SET  AS  DATA  IN  THE  DRIVER  PROGRAM.  (OES  K) 

SEG“FNT 

36 

CLJ 

OUTPUT  PARAMETERS 

segment 

3' 

CLJ 

ARGUMPN"  list 

SEGMENT 

^  J5 

CLJ 

Dune. ID1.*  ARRAYS  OF  PATF  INTEGRALS  UfATM  CM1  AND  (JP(ATM«? 

SEGMENT 

?cj 

CLJ 

DUP 1 10 , 1 0 i  CM'  AT  10  TEMPERATURES  FOR  EACH  OF  10  SPECIES. 

SEGMENr 

4- 

CLJ 

the  L'N!T5  ARE  THOSf  Op  STEPHENS.  SAl tl  '  PR EF ERS 

SFGMENT 

41 

CLJ 

UNITS  OF  C“  AT  SOP  E OP  >!  AND  ATM— CM  AT  .TP  FOR  UP. 

SEGMENT 

4 

COMMON  ■'  XY  '  TT  •  1 n  • 

SEGMENT 

4^ 

DIMENSION  NS1  ‘NSPEC  Nc? ;  N  SPEC ,  DU' ID, NSPEC',  DL'P'IO.NSP  r'. 

SEAMfs* 

44 

1  x T ( 1 0 .  DNSDx-201,  XNSO'POi 

segment 

4r. 

Segment 

4f 

R'a:  nsi,  ns?,  nl 

SFG“FT 

iy 

LCII'Al  NGPAD 

Sfr.MfN* 

4- 

C 

sfr.“tNT 

43 

Cl..1 

SEGMENT 

S'1- 

CLJ 

NL  *  l-DSr>--M’D’'S  NUMBER t  MD!  ECU:. ES .'CM** 3  AT  tp  'Stephen1 

SE  '.Mr\T 

SI 

FA?rtrR<  1  'Fat*  with  5^ANnAPP  TEMPI  PATU°E 

SFG“ENT 

s.;- 

ClJ 

UNDE®  TT  OP. 1 

cr-wrig  - 

Cl  J 

D4TA  Nl  /  ?.6B7E:<> 

SEGmEN' 

t*. 

SFGM;  NT 

ClC. 

CAIL  X"IT  (  -I'.-NSPfC,  D  ,  0!  ' 

SEJM'S1 

f  ' 

CALL  XMtT  :  .1— NSP-S,  r..  DL'P  ! 

rcGMrNT 

SF 

1 


DPROX  ■  (  P2  -  n  )  /  (  X2  -  xi  ) 

XPRO  *  PI  -  XI  *  DPRDX 
DO  1  H-l.NSPEC 

DNSOX(M)  ■  (  NS2(M)  -  NS1(M)  )  /  (  (  X2  -  XI  )  *  Nl  ) 

XNSC(M)  -  NS1(M)  /  NL  -  XI  *  DNSOX'M) 

1  CONTINUE 
C 

IF  (  ABS (  T2/T1-1 .  )  .GT.  .005  )  GO  TO  7 
C 

C  NEARLY  ISOTHERMAL  PATH  ELEMENT 

TBAR  *  .5  *  (  T1  +  T2  ) 

IT  •  0 
DO  2  1*1,10 

IF  (  TSAR  .LE.  TT( I )  )  GO  TO  3 
IT  *  I 

2  CONTINUE 
C 

3  IF  (  IT  .EQ.  0  .OR.  IT  .EQ.  10  )  GO  TO  5 
C 

C  TEMPERATURE  INSIDE  TARLE  RANGE 

FN  *  (  TBAR  -  TT(IT)  )  /  (  TT(IT+1)  -  TT(IT)  ) 

FF  -  1.  -  FN 
DX1  *  X2  -  XI 

0X2  •  X2«2  -  Xl**2 

0X3  *  X2**3  -  Xl«3 

DO  A  M*1,NSPEC 

IF  (  NS1(M)  +  NS2(M)  .EQ.  0.  )  GO  TO  4 
TERM  *  ONSOX(M)  *  DX?  /  2.  +  XNSO(M)  •  0X1 
DU(  IT,M)  *  FF  *  TERM 
DU(IT+1,M)  *  FN  *  TERM 

TERM  -  DNSOX(M)  *  DPRDX  *  0X3  /  3.  ♦  (  XPRO  *  DNSDX(M)  + 

1  XNSO(M)  *  DPRDX  )  *  DX2  /  2.  ♦  XNSO(M)  *  XPRO  *  DX1 

DUPJIT.M)  *  FF  *  TERM 
DUP(IT+1,M'  *  FN  *  TERM 

4  CONTINUE 
RETURN 

C 

C  TEMPERATURE  OUTSIDE  TABLE  RANGE 

5  IF  (  IT  .EQ.  0  )  IT  *  1 
0X1  =  X2  -  XI 

DX2  *  X?**2  -  Xl**2 
DX3  -  X2**3  Xl**3 

DO  6  M*1,NSPEC 

IF  (  NS1(M)  +  NS2(M)  .EQ.  0.  1  GO  TO  6 

DL’(IT.M)  -  DNSDX(M)  *  3X2  /  ?.  ♦  XNSC(M)  •  DX1 

DUP(IT.M)  *  DNSOX(M)  *  DPRDX  «  0X3  /  3.  ♦  (  XPRO  *  DNSDX(M)  ♦ 

1  XNSO(M)  «  DPRDX  )  *  DX2  /  2  *  XNSO(M)  *  XPRO  *  DX1 

6  CONTINUE 
RETURN 


C 

t 

7 


8 


NON-ZERO  TEMPERATURE  GRADIENT 
NGRAD  *  T2  .LT.  T1 
DO  8  1*1,10 
XT ( I )  *  T2  -  TT[ I 

1  (  fl  -  tt(i 

CONTINUE 
IT  •  0 


u; 


TP  -  T1 
T1  -  T2 


•  XI  + 

*  X? 


SEGMENT 

59 

SEGMENT 

60 

SEGMENT 

6! 

SEGMENT 

62 

SEGMENT 

63 

SEGMENT 

64 

SEGMENT 

65 

SEGMENT 

66 

SEGMENT 

67 

SEGMENT 

68 

SEGMENT 

69 

SEGMENT 

70 

SEGMENT 

71 

SEGMENT 

72 

SEGMENT 

73 

SEGMENT 

74 

SEGMENT 

75 

SEGMENT 

76 

SEGMENT 

77 

SEGMENT 

78 

SEGMENT 

79 

SEGMENT 

80 

SEGMENT 

81 

SEGMENT 

82 

SEGMENT 

83 

SEGMENT 

84 

SEGMENT 

85 

SEGMENT 

86 

SEGMENT 

87 

SEGMENT 

88 

SEGMENT 

89 

SEGMENT 

90 

SEGMENT 

91 

SEGMENT 

92 

SEGMENT 

93 

SEGMENT 

94 

SEGMENT 

95 

SEGMENT 

96 

SEGMENT 

97 

SEGMENT 

98 

SEGMENT 

99 

SEGMENT 

100 

SEGMENT 

101 

SEGMENT 

102 

SEGMENT 

103 

SEGMENT 

104 

SEGMENT 

105 

SEGMENT 

106 

SEGMENT 

107 

segment 

108 

SEGMENT 

109 

SEGMENT 

110 

segment 

111 

SEGMENT 

112 

SEGMENT 

111 

SEGMENT 

114 

SEGMENT 

115 

272 


IF  (  NGRAO  )  IT  *  10 
II  *  1 

DO  IS  1-1,10 
IP  -  II 

inrs.vj.»”  e)*™*  e 

IF  (  XT( 1 1 j  .LE.  Xl  .OR .  XT(IP)  .6E.  X2  )  GO  TO  15 
IF  {  I  -GT.  1  )  GO  TO  11 

FIRST  PART  OF  PATH  OUTSIDE  TEMPERATURE  TABLE  RANGE 
DX1  *  XT (11)  -  XI 
0X2  -  XT(1I)**2  ‘  Xl**2 
0X3  -  XT{I!)**3  -  Xl**3 

9  DO  10  M-l .NSPEC  ,  „  _ 

1  1  DNSOX(M)  ♦  XNSO(H)  *  DPRDX  )  *  DX2  /  2.  * 

2  XNSO(M)  •  XPRO  *  DX1 

10  CONTINUE 
GO  TO  15 

TEMPERATURE  IN5IPE  TABLE  RANGE 
’  11  XN  *  AMAX1(  XT(IP),  XI  ) 

XF  *  AMIN1(  XT(1I),  X2  ) 

0X1  -  XF  -  XN 
0X2  -  XF**2  -  XN**2 
DX3  *  XF**3  -  XN—3 
OXA  -  XF**4  -  XH«4 

:  NEAR  SIDE  INTEGRAL  TO  NEXT  POINT 

OXT  -  XT (II)  -  XT(IP) 

FF  -  (  XF  -  XT(IP)  )  /  DXT 
FN  -  {  XN  -  XT{IP)  )  /  OXT 
IT  -  II 

c  INTEGRATE  BY  PARTS— OIFERENTIATING  TOE  WEIGHTING  FACTOR 

5 o. i « 1° » 

?.  j  w  •  1  * " 


DU(IT,M) 


*212.* 


SEGMENT  116 
SEGMENT  117 
SEGMENT  118 
SEGMENT  119 
SEGMENT  120 
SEGMENT  121 
SEGMENT  122 
SEGMENT  123 
crmucHT  124 
SEGMENT  125 
SEGMENT  126 
SEGMENT  127 
SEGMENT  128 
SEGMENT  129 
SEGMENT  130 
SEGMENT  131 


F  FN  NE.  o'.  ONN  »  DNN  -  (  DNSDX(M)  *  XN«2  /  2.  * 

If  I  FN  ."t.  /  xp|soW  *  AN  )  *  FN 

r"*  *  w/ofAV.  * DX3 ' 6- + 
p"””  >  B"NPP  ■  [  «S5l«/- WOB  )  * 

\  XF«2  12.*  XNSO(M)  *  XPRO  •  IF  )  *  FF 

1,C  i  cu  Ht  o  1  ONNPP  -  DNNPP  -  I  DNSOX(M)  *  DPRDX  *  XN«3  /  3. 
IF  (  FN  -NE.  0.  )  ONNPP  DNS0X{4)  *  XNSO(M)  •  OPROX  ) 

,  XN«2  f  2.  *  XNSO(M)  •  XPRO  *  XN  )  ♦  FN 

WIPI1T  Ml  -  WJP(IT.M)  ♦  ONN»P  -  (  PNSDX(M)  *  DPRDX  *  0X4/12.  * 
OUP(IT.M)  «J^0-,’0NS0X(H)  *  ANSO(M)  *  DPRDX  )  *  DX3  /  6.  - 

2  XNSO(M)  •  XPTO  *  DX2  /  2.  )  )  DXT 

13  CONTINUE 


SEGMENT 

132 

SEGMENT 

133 

SEGMENT 

134 

SEGMENT 

135 

segment 

136 

SEGMENT 

137 

SEGMENT 

138 

SEGMENT 

139 

SEGMENT 

140 

SEGMENT 

141 

SEGMENT 

142 

SEGMENT 

143 

SEGMENT 

144 

SEGMENT 

U5 

SEGMENT 

146 

SEGMENT 

147 

SEGMENT 

148 

SEGMENT 

149 

SEGMENT 

150 

SEGMENT 

151 

SEGMENT 

1S2 

SEGMENT 

1S3 

SEGMENT 

!S4 

SEGMENT 

155 

SEGMENT 

156 

SEGMENT 

157 

SEGMENT 

158 

SEGMENT 

159 

SEGMENT 

160 

SEGMENT 

161 

SEGMENT 

16? 

SEGMENT 

163 

SEGMENT 

164 

SEGMENT 

16S 

SEGMENT 

16S 

*  SEGMENT 

167 

1  SEGMENT 

168 

SEGMENT 

169 

SEGMENT 

170 

SEGMENT 

171 

SEGMENT 

17? 

273 


I 


IF  (  IT  .HE .  II  )  GO  TO  14 

FAR  SIDE  INTEGRAL  FROM  PASSED  POINT 
9XT  »  XT( IP)  -  XT{ II) 

FF  *  (  XF  -  XT(II)  W  0*r 

FN  =  (  XN  -  XT (II)  )  /  DXT 
IT  *  IP 
GO  TO  12 

IF  (  I  .IT.  10  .OR.  XT (II)  .GE.  X2  )  GO  TO  15 

LAST  PART  OF  PATH  OUTSIDE  TEMPERATURE  TABLE  RANGE 
DX1  -  X2  -  XT(II) 

DX?  -  X2**2  -  XT (II )**2 
0X3  =  X2«3  -  XT(I1)«3 
GO  TO  9 

CONTINUE 


IF  (  NGRAO  1  IT  =  10  -  IT 
IF  (  IT  .EQ.  0  .OR.  IT 


.EQ.  10  )  GO  TO  5 


RETURN 

END 


SEGMENT  173 
SEGMENT  174 
SEGMENT  175 
SEGMENT  176 
SEGMENT  177 
SEGMENT  178 
SEGMENT  179 
SEGMENT  180 
SEGMENT  181 
SEGMENT  182 
SEGMENT  183 
SEGMENT  184 
SEGMENT  185 
SEGMENT  186 
SEGMENT  187 
SEGMENT  188 
SEGMENT  189 
SEGMENT  190 
SEGMENT  191 
SEGMENT  19? 
SEGMENT  193 
SEGMENT  194 
SEGMENT  195 
SEGMENT  196 


SUBROUTINE  SETALT  (  ALMIN,  ALMAX,  JBAND  ) 

SETALT 

? 

ccc 

IETALT 

3 

c 

SUBROUTINE  SETALT,  CALLED  FROM  THE  DRIVER  PROGRAM  DRV'JPW, 

SETALT 

4 

c 

DETERMINES  THE  ALTITUDES  AT  WHICH  SUBROUTINE  URwtl  L  COMPUTES 

:ctalt 

5 

c 

the  upwelling  natural  radiation. 

SE. '  T 

6 

c 

A  SET  OF  CHARACTERISTIC  ALTITUDES  HAS  BEEN  PREVIOUSLY  5ELECTED 

SETALF 

? 

c 

FOR  EACH  OF  THE  10  SPECTRAL  BINS.  IE  THE  WAVELENGTH-BAND  OF 

SETALT 

a 

c 

INTEREST  (ALMIN, ALMAX)  SPANS  MORE  THAN  ONE  BIN,  WE  USE  A  SET 

SETALT 

Q 

c 

OF  ALTITUDES  OBTAINED  BY  COMBINING  THOSE  FOR  EACH  OF  THE 

SETALT 

in 

c 

SPANNED  BINS. 

SETALT 

li 

ccc 

SETALT 

i? 

c 

INPUT  PARAMETERS 

SETALT 

13 

c 

ARGUMENT  LIST 

SETALT 

14 

c 

ALM1N,  -  MINIMUM  AND  MAXIMUM  WAVELENGTHS  FOR  WHICH 

SETALT 

15 

c 

ALMAX  UPWELLING  NATURAL  RADIATION  IS  TO  BE  COMPUTED, 

SETALT 

16 

c 

MICRONS 

SETALT 

17 

c 

J8AND  -  8R0A0-BAND  LOOP  INDEX  (1,5) 

SETALT 

18 

c 

SETALT 

19 

c 

OUTPUT  PARAMETERS 

SETALT 

20 

c 

COWON  UPWELS 

SETALT 

21 

c 

NALT(JBAND)  -  NUMBER  OF  ALTITUDES  FOR  BROAD-BAND  INDEX 

SETALT 

22 

c 

JBAND 

SETALT 

23 

c 

ZKM  r I . JBAND)  1'1,NAlT(JDAND) 

SETALT 

24 

c 

-  ALTITUDES  OF  POINT  V  ABOVE  UPWALT  AT  WHICH 

SETALT 

25 

c 

UPWELLING  RADIANCE  IS  COMPUTED  FOR  BROAD¬ 

SETALT 

26 

c 

BAND  INDEX  JBAND,  KM 

SETALT 

27 

ccc 

SETAIT 

28 

COMMON/UPWELS/  UPWALT,UPWLON,UPWLAT,NALT(5),ZKM(13,5:,NNADIR,NAZI, 

UPWELS 

NWAVEf  5 ) , 10AYV,CLDELG,UPRADN( 13,10, 5) ,WV(  10, 5) , IKM,  UPWELS  3 


* 

NBANDS 

UPVEl S 

4 

COWBN/UPWELSl/ 

UPWELS 

5 

2 

R010(6,10).R010A!6,10,10),R010N(6,10). 

UPWELS 

6 

3 

R025( 6 , 10) ,R0?5A( 6,10,10) ,R0?5N(6 ,10) , 

UPWELS 

7 

4 

R050( 6,10) ,R050A( 6,10,10) ,R050N( 6, 10) , 

UPWELS 

8 

5 

R090( 6 , 10) ,R090A( 6,10,101 ,R090N(6 ,10) , 

UPWELS 

9 

6 

R100(6,10).R100A(6,10,1C!.R)00N(6,10) 

UPWELS 

10 

7 

,  ARC VAf  6,10,10) ,ARCVN( 6 , 10) 

UPWELS 

1! 

DIMENSION  ! 

HUPWELl 1 1 , 10) ,BINLAM( 11) ,NALTL( 10) ,ALT ( 56) 

SETALT 

30 

C 

SETALT 

31 

C 

DEFINITIONS  OF  DATA... 

SETA’.  T 

3? 

c 

NBINL1  -  NUM8ER  OF  WAVtlENGTH-BIN  BOUNDARIES  MINUS  ONE 

SETA!  T 

37 

r. 

-  NUMBER  OF  WAVELENGTH  BINS 

SETALT 

34 

C 

8 !NLAM(L)  L*1 ,  (NBINll+1 ) 

SETALT 

35 

C 

-  WAVELENGTH  OF  BIN  BOUNDARY,  MICRONS 

SETALT 

36 

c 

NAL 

TL(M)  M-l. NBINLI 

SETALI 

37 

c 

-  NUMBER  OF  ALTITUDES  FOR  WAVELENGTH-BIN  M 

SETALT 

38 

c 

HUPWEl ! I ,M)  I=1,NALTL(M)  M=1.NBINL1 

SETALT 

39 

c 

-  ALTITUDE-1  FOR  WAVELENGTH-BIN  M,  KM 

SETALT 

40 

c 

SETALT 

41 

uata  nbinli 

/  10  / 

SETALT 

47 

DATA  BINLAM 

/  2.000.  2.100,  2.575,  2.675,  2.725,  2.875,  4.150, 

SETALT 

47 

J 

4.550,  4.750,  4.850,  5.000  7 

SETALT 

44 

DATA  HALTl 

/  5,  4,  5,  11.  5,  4,  9, 

SETA’,t 

4C 

i 

5,  4 

SETAlt 

4f 

DATA  HUPWEL 

/  0.,  1 . , 12 . ,20. , 100. ,0. ,  0.,  0.,  0.,  0.,  0., 

SFTA,t 

4  ’ 

2 

0.,  1 . ,12. .100. ,0. ,  0.,  0.,  0.,  0.,  0.,  C., 

SETAi.7 

40 

3 

0.,  1.,  3. , 12., 100. ,0.,  0.,  0.,  0.,  0..  0., 

SE’ALT 

49 

rr- -j 


4  0.,  1..  2.,  4..  9. ,12. ,20. .30. ,50. .70., 100., 

SET  ALT 

50 

5  0.,  1.,  3. , 12. ,100. .0..  0.,  0.,  0.,  0..  0., 

5ETALT 

51 

6  0.,  1. .12. ,100. ,0. ,  0.,  0,,  0.,  0.,  0.,  0., 

SETAL1 

52 

7  0..  1.,  3.,  6. , 12. ,20. ,50. .70., 100. ,0.,  0., 

SETALT 

53 

8  0.,  1 . ,12. ,100.,0. ,  0.,  0.,  0.,  0.,  0..  0., 

SETALT 

54 

9  0.,  l.,12.,30.,100.,0.t  0.,  0.,  0.,  0.,  0.. 

SETALT 

55 

A  0.,  1. ,12. .100..0. ,  0.,  0.,  0.,  0.,  0.,  0./ 

SETALT 

56 

SETALT 

57 

DETERMINE  WHICH  WAVELENGTH  BINS  THE  MINIMUM  AND  MAXIMUM 

SETALT 

58 

WAVELENGTHS,  ALMIN  AND  ALHAX,  FALL  INTO. 

SETALT 

59 

IF  (  ALMIN  .LT.  2.0  )  GO  TO  15 

SETALT 

60 

DO  10  A-1.NBINL1 

SETALT 

61 

IF  (  ALMIN  .LT.  BINLAM(K+1)  )  GO  TO  20 

SETALT 

62 

10  CONTINUE 

SETALT 

63 

15  WR1TE!6,16) 

SETALT 

C4 

15  FORMAT ( 1H0 , IX , 54HA  BOUNDARY  WAVELENGTH  IS  OUTSIDE  THE  2.0-  TO  5.0- 

SETALT 

65 

SMICRON  INTERVAL) 

SETALT 

66 

STOP  1 

SETALT 

67 

20  RUIN  *  K 

SETALT 

58 

NOW  HAVE  INDEX  MMIN  OF  WAVELENGTH  BIN  FOR  MINIMUM  WAVELENGTH. 

SETALT 

69 

DO  25  K*1,N8INL1 

SETALT 

70 

IF  (  ALMAX  ,LE.  BINLAM(K*1)  )  GO  TO  35 

SETALT 

71 

25  CONTINUE 

SETALT 

72 

30  WRITE(6,16) 

SETALT 

73 

STOP  2 

SETAIT 

7* 

35  ftWX  -  X 

SETALT 

75 

NOW  HAVE  INDEX  »WX  OF  WAVELENGTH  BIN  FOR  MAXIWJH  WAVELENGTH. 

SETALT 

76 

SETALT 

77 

IF  (  fWAX  .NE.  WIN  )  GO  TO  50 

SETALT 

78 

NALTJ  -  NALTL(MHIN) 

SETALT 

79 

NALT(JBANO)  -  NALTJ 

SETALT 

BO 

00  40  1*1, NALTJ 

SETALT 

81 

7KM( I .JBAND}  -  HUPWEL(l.MMIN) 

SETALT 

82 

40  CONTINUE 

SETALT 

83 

GO  TO  90 

SETAIT 

84 

50  CONTINUE 

SETALT 

85 

J  •  0 

SETALT 

86 

DO  70  M-WIN.WAAX 

SETALT 

87 

NH  *  NALTL(M) 

SETALT 

88 

00  60  1*1. NH 

SETALT 

89 

J  *  J  ♦  1 

SETALT 

90 

ALT(J)  -  HUPWEL(l.M) 

SETALT 

9] 

60  CONTINUE 

SETALT 

92 

70  CONTINUE 

SETALT 

93 

UMAX  -  J 

SETALT 

94 

SORT  ALT  ARRAY  IN  ORDER  OF  INCREASING  ALTITUDES  AND  THEN 

SETALT 

95 

ELIMINATE  REDUNDANT  ALTITUDES. 

SETALT 

96 

CALL  SORTLJ(ALT,ALT,ALT,JMAX,0) 

SETALT 

97 

JW1  -  JHAX  -  1 

SETALT 

98 

J  *  1 

SETALT 

99 

ZKM(1, JBAND)  -  ALT(l) 

SETAIT 

100 

00  80  I*1,JMK1 

SET, ALT 

101 

IF  (  ALT(M)  .EQ.  ALT(I)  )  GO  TO  80 

SETALT 

102 

J  -  J  ♦  1 

5ETALT 

103 

ZKM(.1,  JBAND)  *  ALTO+l) 

SETALT 

104 

80  CONTINUE 

SETALT 

105 

NALT( JBAND)  •  J 

SETALT 

106 

90  CONTINUE 

SETALT 

107 

END 

SETALT 

108 

27f> 


c 

c 

c 

c 

c 

CIJ 

CLJ 


SUBROUTINE  SHELLS 

♦SHELLS*  PREPARES  A  TABLE  OP  PHYSICAL  PROPERTIES  FOR  THE 
AMBIENT  ATMOSPHERE  USEO  IN  THE  CALCULATION  OF  ATMOSPHERIC 
TRANSMISSION. 


INPUT  PARAMETERS 


SHELLS 

SHELLS 

SHElLS 

SHELLS 

SHELLS 

SHELLS 

SHELLS 

SHELLS 


CLJ 

ATMOUP  COPWON 

SHELLS 

10 

CLJ 

PP  * 

PRESSURE,  DYNES/CM**? 

SHELLS 

11 

CLJ 

TT  * 

TEMPERATURE,  DEG  K 

SHELLS 

12 

CLJ 

SM  1(1)  - 

DENSITY  OF  SPECIES  I.  1/CM**3 

SHELLS 

13 

CLJ 

PARTICULAR  SPECIES  ARE  INDICATED  AS  FOLLOWS... 

SHELLS 

14 

CLJ 

N  l-IKAP(N)  SNI(I) 

SHELLS 

15 

CLJ 

—  - —  - 

SHELLS 

16 

CLJ 

1  8  NO 

SHELLS 

17 

CLJ 

?  11  N0+ 

SHELLS 

18 

CLJ 

3  21  N20 

SHELLS 

19 

CLJ 

4  15  N02 

SHELLS 

20 

CLJ 

5  14  03 

SHELLS 

21 

CLJ 

6  6  CO? 

SHELLS 

2? 

CLJ 

7  20  CO 

SHELLS 

23 

CLJ 

8  22  CH4 

SHELLS 

24 

CLJ 

9  16  H20 

SHELLS 

25 

CLJ 

10  18  OH 

SHELLS 

26 

CLJ 

XYZCOM  COMMON 

SHELLS 

27 

CLJ 

FACT  * 

PATH  INTEGRATION  FACTOR  CONTROLLING  THE  NUMBER  OF 

SHELLS 

28 

CLJ 

ALTITUDES  AND  SPACING  (HAY  HAVE  A  VALUE  BETWEEN 

SHELLS 

29 

CLJ 

0.1  AND  10.  PER  EWING.  NOMINAL  VALUE  IS  1.0) 

SHELLS 

30 

CLJ 

FOR  FACT-l.O,  ME  HAVE  NS-77  AND  JCMNGE-40. 

SHELLS 

31 

CLJ 

J 

HS,  KM 

SHELLS 

3? 

CLJ 

*** 

**•*»**» 

SHELLS 

33 

CLJ 

1 

0.0 

SHELLS 

34 

CLJ 

2 

0.526 

SHELLS 

36 

CLJ 

39 

20.000 

SHELLS 

36 

CLJ 

40 

22.105 

SHELLS 

37 

CLJ 

58 

60.0 

SHELLS 

38 

CLJ 

77 

100.0 

SHELLS 

39 

CLJ 

SHELLS 

40 

CLJ 

SUBSEQUENT  TO  THE  INITIAL  DEVELOPMENT  OF  SUBROJTIHE  SHELLS  BY 

SHELLS 

41 

CLJ 

L.  EWING  OF 

GET,  J.  GARBARINO  OF  GRC  SIGNIFICANTLY  REVISED  THE 

SHELLS 

42 

CLJ 

SETTING  Of 

THE  ATMOSPHERIC  SHELLS  WITH  THE  INTENT  TO  REDUCE 

SHELLS 

43 

CLJ 

THE  RUNNING 

TIME.  FOR  THE  ORIGINAL  SETTING  OF  THE  ATMOSPHERIC 

SHELLS 

44 

Cl  J 

SHELLS,  THE 

MAXIMUM  NUMBER  OF  BOUNDARIES  WAS  81.  FOR  THE  GRC 

SHELLS 

45 

CLJ 

SETTING.  IT 

IS  61.  THUS,  SEVERAL  VARIABLES  COULD  HAVE  THEIR 

SHELLS 

46 

CLJ 

DIMENSIONS  REDUCED  TO  61  F°»«  81.  GPC  HAS  ALSO  HADE  FACT 

SHELLS 

47 

CLJ 

DEPENDENT  ON  TANSOPT  IN  PSCVRAM  ATXGEN  BY  SETTING  FACT  TO  1.0 

SHELLS 

48 

CLJ 

IE  TRNSOPT 

.NE.  FAST  AND  TO  10. C  IF  TRNSOPT  ,EQ.  FAST. 

SHELLS 

49 

CLJ 

WE  HAVE  KEPT  FACT  INDEPENDENT  OF  TRNSOPT. 

SHELLS 

50 

CLJ 

SHHlS 

51 

CLJ 

WE  RECORD  THE  BOUNDARIES  FOR  TWEE  VALUES  OF  FACT,  PER  GRC. 

SHELLS 

5? 

CLJ 

HELLS 

53 

CLJ 

FOR  FACT  « 

1,  XO-1.25,  Xl-3.125,  X2-7.8125 

HELLS 

54 

CLJ 

J  H5 

0  HS  J  HS 

SHELLS 

55 

CLJ 

_ 

SHELLS 

56 

CLJ 

1  0. 

0CHNG1-10  13.12S  JCHNG2-1B  42.8125 

SHELLS 

5? 

CLJ 

Z  1  .25 

11  16.250  19  50.6250 

&  t  L  L  S 

58 

Z?7 


CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CL. 

CLJ 

CLJ 

CLJ 

a  J 
CLJ 


c 

c 

CLJ 

CGET 

CGET 

CGET 

CGET 

CLJ 


3 

7. SO 

12 

19.375 

A 

3.75 

13 

22 . 500 

5 

5.00 

14 

25.625 

6 

6.25 

15 

78.750 

7 

7.50 

16 

31.875 

8 

6.75 

17 

35.000 

9 

10.00 

FDR 

FACT  • 

10, 

X0=3.0, 

Xl=7.5. 

J 

US 

J 

HS 

1 

0.0 

JCHNG1=5 

16.5 

7 

3.0 

6 

74.0 

3 

6.0 

7 

31.5 

A 

9.0 

FOR 

FACT  = 

.1. 

X0=0.5. 

X 1 = 1 .75, 

J 

HS 

J 

HS 

_ 

.... 

1 

0.0 

JCHNGl'22 

11.25 

2 

0.5 

23 

12.60 

3 

1.0 

?4 

13.75 

21 

10.0 

41 

35.00 

"0 

58.4375 

SHELLS 

59 

21 

66.2500 

SHELLS 

60 

22 

74.0625 

SHELLS 

61 

23 

81.8750 

SHELLS 

6? 

74 

8S.r'd?5 

SHELLS 

63 

25 

97.5000 

SHELLS 

64 

SHELLS 

6r< 

SHELLS 

66 

.75 

SHELLS 

67 

J 

HS 

SHFLl  S 

68 

SHELLS 

69 

XHNG2*  8 

50.25 

SHELLS 

70 

9 

69.00 

SHELLS 

71 

10 

87.75 

SHELLS 

77 

11 

106.50 

SHELLS 

73 

SHELLS 

74 

.125 

SHELLS 

75 

J 

US 

SHELLS 

1  b 

SHELLS 

?7 

JrHNG?s42 

38.175 

SHELLS 

78 

43 

41.750 

SHELLS 

79 

44 

44.375 

SHELLS 

80 

SHELLS 

81 

SHELLS 

8? 

SHELLS 

83 

61 

97.500 

SHELLS 

84 

SHELLS 

85 

SHELLS 

86 

SMELLS 

87 

SHELLS  88 

SHELLS  88 

SuELl.S  SO 

9<E\  is.  81 

SHF L  L  S  9? 

SHELLS  9? 

SHELLS  98 

SHELLS  95 

Juf'.LS  96 

SH[L'_r  97 

SHELLS  0° 

r  _  s  03 

shells  i— 

SH  ELL  S  lrl 

SHELLS  1C? 

SHELLS  10? 

Shells  lo« 

Sh*LLS 

SHfLLS.  l^7 

S-.r;  LS  U  o. 

9  r- K-^ 

IK 

SH  r  L  *'  Ill 

Sg*L  .  r 

Sh  c  l  s  ] : 1 

sur.-.s  i:« 

9-  r  •;  1  lc 


OUTPUT  PARAMETERS 
XYZCOM  COMMON 

NS  =  NUMBER  OF  ALTITUDE  BOUNDARIES 
HWEILIJ]  -  ALTITUDE  BOUNDARIES,  Cl*  (J'l.NS) 

TS(J'  *  TEMPER AT'JPE  AT  ALTITUDE  BOUNDARY  J,  DEG  A  EJ'l.N,- 
PS(ji  *  PRESSURE  AT  ALTITUDE  BOUNDARY  J,  ATM  !J=1,NS' 
XNSPECfJ  N?  -  SPECIES-N  DENSITY  AT  ALTITUDE  BOUNDARY  J.  t'CM".< 
(J=1.NS  ,  N-l ,101 

DIMENSION  PRNATR(81) 

DIMENSION  I  MAP  /  20)  v  _  . 

COMflN  /  ATMOUP  /  ML.  SCAR.  1D0RN,  PP.  PHO,  TT ,  SM'  30'.  HRHU( 

'cONWON  /  XYZCOM  /  UMTe!  COMTE,  NS.  HSHELL(Bl).  TS!81'.  PS<?1 

1  XNSPECfBl.10).  U'10,10.2),  UPIIO.JO,?!,  HMO.S, 

2  FACT 

DATA  'MAP  /  9.  11,  21 ,  IS,  14 ,  6,  70.  77,  16,  18  ' 

THF  ORIGINAL  GEt  ALGORITHM  IS  COMMENTED  0UT  WITH  CGr. 

NS  •  AO. 5  -  7.S  *  FACT 

NS  *  MAXO'  30.  MINJf  7  *  NS.  80  1  1  <1 

JCHNGE  *  7  *  NS  /  7 

X  •  40.  /  FlOA"  NS  -  1  1 


NS  '  S.l  -  7. /FACT 

N',  ■  MAXT-  10.  MINCH  60.  ?*NS  T 

JFHNG!  *  7  ♦  NS/3 

JCHNG?  *  ?  *  ?*NS'3 

t  *  30./FLCAT/NS-1 ) 


♦  1 


HS  -  -X 

SHELLS 

116 

WRITER. 5) 

SHELLS 

117 

5  FORMAT (1H1,44X,43M*  *  *  OUTPUT  FROM  SUBROUTINE  SHELLS  *  *  *,/T,l 

SHELLS 

11° 

SH  .126H  J  H SHELL  TS  PS  NO  NO*  N20 

SHELt  S 

11  a 

S  NO?  01  CO?  CO  CH4  H?0  0 

SHELLS 

120 

JH/.1H  ,?8H  X'  DEG  X  ATMOS  ,10(0X,7H1/CM**31' 

SHELLS 

i?: 

DO  10  J=1 , NS 

SHELLS 

1?7 

CGfT  IF (  J  .EQ.  JCHNGE  )  X  =  4.  *  X 

SHELLS 

123 

I F (  J  .EO.  XHNG1  )  X  =  2.5*X 

SHELLS 

{?« 

IF (  J  .EO.  JCHNG2  )  X  -  2.5*X 

SHELLS 

175 

HS  *  HS  +  X 

SHELLS 

175 

C 

ESTABLISH  ARRAY  OF  SHELL-BOUNDARY  ALTITUDES. 

SHELLS 

137 

HSHELL(J)  =  HS  *  1.E5 

SHELLS 

128 

CALL  ATMOSU  (  2,  KS  1 

SHELLS 

129 

CALL  SPCMIN  (  2,  HS  ) 

SHELLS 

130 

SNI (11)  *  0. 

SHELLS 

131 

CLJ 

SHELLS 

1 3? 

CL  J 

THE  TEST  ALTITUDE  IN  THE  FOLLOWING  IP-STATEMENT,  INITIALLY  SET 

Shells 

133 

CLJ 

TO  75  XM  BY  G.E. TEMPO,  HAS  REEN  CHANGED  TO  90  1“  BECAUSE 

SHELLS 

134 

CLJ 

SUBROUTINE  IONCS"  COMOUTES  NO*  ONLY  FOR  ALTITUDES  ,GE .  90  XM. 

SHELLS 

135 

CLJ 

EURTHER,  NO*  IS  PROBABLY  NEGLIBLE  BELOW  90  X". 

SHELLS 

136 

CLJ 

SHELLS 

137 

1F(  HS.GE.90.  )  CALL  lONOSUt  2.HS  ) 

SHELLS 

132 

TS(J)  -  AMIN1!  300. ,TT  ) 

SHELLS 

139 

PSIJ1  -  DD  '  I .01325E6 

SHELLS 

14D 

ooYn=i,io' 

SHELLS 

141 

1  *  IKAP.'N) 

SHELLS 

14? 

XNSPEC(J.N)  =  SN ! ( I ) 

SHELLS 

143 

1  CONTINUE 

SHELLS 

144 

WRITEI6.H)  J.HS.TSIJ)  PS(0!  'XNSREC(J.N),N=1,10; 

s“ELLS 

145 

11  FORMAT  (IX , 1 3 tlPf 10. 3.0PF6 . 1 ,1D!!E10.3) 

SHELLS 

I  47 

10  CONTINUE 

SHELLS 

1  —  t 

CLJ 

TO  FACILITATE  COMPARING  OL*  ATMOSPHERE  WITH  TH05F  UEEO  BY 

SWELLS 

14-8 

CLJ 

OTHER  WORKERS,  THE  FOLLOWING  STATF*f<*’S  IEXD-LCV.P-70  AN'. 

SHELLS 

149 

CLJ 

ASSOCIATED  PRINT)  WERE  ADDED  TC  COMPUTE  THE  WATtr  CONTfN’ 

S«ELLS 

159 

CLJ 

OF  THE  ATMOSPHERE  ALONG  A  VERTICAL  PAT»  ABOVE  EAC«  OF  THE 

SM:LLS 

*  EL  3 

CLJ 

SHELL  BOUNDARIES.  THE  WATER  CONTENT  ABOVE  BOUNDARY  J, 

SHELLS 

is; 

CLJ 

PRWATR’J).  is  EXPRESSED  IN  UNITS  OF  PRECIPITABLE  CENTIMETERS, 

shells 

ic^ 

CLJ 

I.E.. 

SHELLS 

CLJ 

FR  CM(H?01  *  3,?«*E*2?  MOtECULES-’CM**?  . 

SWELLS 

KC 

CL  J 

WE  ASSUME  AN  EXPONENTIAL  DEPENDENCE  Or  THE  WATEP  Vi  one 

shells 

CL.' 

CONCENTRATION  BETwEEN  the  BOUNDARIES  AND  HENCE  CALL  FUND’ION 

shell  s 

\c" 

CLJ 

ACCOM  WITH  ITYRE  =  ?. 

SH  E  L  L  c 

3  C  0 

PRWATR  (NS)  -  0. 

SHELLS 

00  20  1-2, NS 

Shflls 

1  r\ 

J  »  NS  -  I  ♦  1 

SHELLS 

1  f.  1 

OElRPW  *  ACC'J"  2,  HjHElL'J’,  HSHELL  ( J*:  1 ,  *N5PEC '0,9\ 

SHELL  - 

I  XNS°EC'J*I,P',  HSHELL  fji,  HSHELL'J*'.'  W3.34F*?? 

SHELL  s 

iK? 

PRWATR^Ji  «  PRWATR  :  J+l  ♦  DEL  W 

Sh  EL  L  c 

20  CONTINUE 

Shf-.i  S 

1 

WR I T  E  f  6 ,  ?N  I  (  HSHELL'JI,  PRWAtriJ',  J.l.NS  1 

SHELL  S 

\e.f 

?e  FOR“AT  !• C  HShEll IXM-,  prwatr ! or  ;m-  .»/(5»,lPiOE12. AI¬ 

su  r.  l  t 

’  (■  •> 

RE  turn 

SHF.!' 

r^n 

ShT,. < 

ccc 

c 

c 

c 

c 

c 

ccc 

c 

c 

c 

c 

CC£ 

c 

C 

c 

c 

c 

c 

c 

ccc 


ccc 


SUBROUTINE  SOLRAO(K,8,£) 

SUBROUTINE  SOLRAD  PROVIDES  THE  SOLAR  SPECTRAL  IRRADIAHCE 
AT  THE  TOP  OF  THE  EARTH'S  ATMOSPHERE ,  IN  THE  SPECTRAL  RANGE 
FROM  2  TO  5  MICROMETERS  (OR  5000  TO  2000  WAVENUMBERS) . 

THE  NASA  DATA  ADOPTED  BT  THE  ASTM  HAVE  BEEN  FITTED  BY 
PIECEWISE-CONTINUOUS  POWER-LAV  EXPRESSIONS. 

INPUT  PARAMETERS 

B  -  WAVENIH8ER  (CM-1)  ,  K»l,2.3,4 
-  WAVELENGTH  (UM)  ,  K-5,6,7,8 
K  -  INDEX  SPECIFYING  UNITS  FOR  INPUT  AND  OUTPUT 

OUTPUT  PARAWTERS 

E  -  SOLAR  SPECTRAL  IRRADIANCE  AT  THE  TOP  OF  THE  EARTH'S 
ATMOSPHERE,  IN  UNITS  OF... 

PHOTONS/ (CH**2  SEC  CM-1)  ,  K=l,5 

PHOTON S/(CM**2  SEC  UM)  ,  K«2,6 

WATTS/ (CM«2  CM-1)  .  X-3,7 

WATTS/ (  M**2  UM  )  ,  K*4,8 

DATA  C.H  /  2.997925E+10,  6.626176E-27  / 

DATA  E2P2.E2P9.E3P5.EAP0.E5P0  /  79.0.35.0,14.6,9.50.3.79  / 

DATA  C2P2.C2P9.C3PS, CAPO, C5P0  /  2. 2, 2. 9, 3. 5,4. 0,5.0  / 

DATA  FLAG  /  -2.0  / 

GO  TO  20 


1F(  FlAG.GT.0.0  ) 

FLAG  -  *2.0 

1.0E*07/(H*C) 

ALOG( E2P9/E2P2)/ALOG(C2P9/C2P2) 
ALOG(E3P5/E2P9)/ALOG(C3P5/C?P9) 
ALOG(E4PO/E3P5)/ALOG(C4PO/C3P5) 
ALOG(E5PO/E4PO ) / A10G( C5PO/C4PO) 


HCIV 
A2P2 
A2P9 
A3P5 

A4P0 

20  CONTINUE 

A  *  6 

IF (  A.LE.0.0  )  GO  TO  27 
IF (  (K.LE.O)  .OR.  (K.GI.8)  ) 
IF(  K.LT.5  ■  - 


SO  TO  29 

A  •  1.0E*04/A 

IF(  (A.LT.2.)  .OR.  (A.GT.5.)  )  60  to  ?7 
IF (  A.6E.C4P0  )  SO  TO  23 
!F(  A.6E.C3P5  )  60  TO  22 
IF (  A.GE.C2F9  )  GO  TO  21 
E  *  E2P2*(A/C?P2)**A2P2 
GO  TO  24 

E  •  E2P9*(A/C2P9)MA2P9 
GO  TO  24 

E  «  E3P5*(A/C3P5)**A3P5 
GO  TO  24 


SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAC 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 

SOLRAD 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 
3? 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 
«? 
4<7 


23 

E  *  E4P0*( A/C4P0)**A4P0 

SOLRAD 

50 

24 

if;  (n.eo.a)  .or.  (k.eq.bl 

1 

GO 

TO 

23 

SOLRAD 

51 

1F(  (K .EQ.3)  .OR.  (K.EQ.7) 

) 

GO 

TO 

26 

SOLRAD 

52 

IF (  (K.EQ.2)  .OR.  (K.EQ.6) 

) 

60 

TO 

25 

SOLRAD 

6  ? 

E  "  1.0E-1?»HCIV*E*A*A*» 

SOLRAD 

54 

GO  TO  28 

SOLRAD 

55 

25 

E  *  1.0E-0B«HC1V*E*A 

'OLRAP 

56 

GO  TO  28 

SOLSAD 

57 

26 

E  •  1.0£-0fi*E*A»A 

SOLRAD 

58 

?dO 


n«no 


28  RETURN 

27  PRIHT  31.  A  w  B,n  H»e  BEEN  CALLED  WITH  WAVELENGTH  (OR  SOLRAD 

31  FORMAT  (82HO  SUBROUTINE  SOLRAO  HA5  BUN  LN.Lt  SCLRAO 

*  . FSi  i  Y  f“SC  D  iMCr  F  1?  ,N  )  i-ai  n  irt 


SOLRAD 

SOLRAO 


SCLRAO 

SOLRAD 

SOLRAD 


i  WAVENUWER)  OUT  Of  RANGE.  ,E12.*) 

CALL  EXIT  - 

28  PRINT  33,  K  mratt,ut  Bin  MAS  BEEN  CALLED  WITH  IMPROPER  VALUE  SOLRAD 
33  FORMAT  (68H0  SUBROUTINE  SOLRAD  HAS  BltN  ln.lcu  «  SOLRAD 

J  FOR  INDEX  K. ,110)  SOLRAD 

CALL  EXIT 


59 

60 
61 
6? 

63 

64 

65 

66 

67 

68 


CCC 

CCC 

CCC 


SUBROUTINE  SORTLJ(  A.B.C.N.LOHI  ) 

civFN  THF  A  ARPAY  OF  LENGTH  N,  THIS  ROUTINE  SORTS  THE 
Sf.RAY  FROM  LOW  TO  HIGH  IF  LOH!  .LE.O  AND  FROM  HIGH  TO  LOW 

wTawTc° ARRAYS  ARE  SIMPLY  CARRIED  ALONG. 


DIMENSION  A(l),  8(1),  C(l) 

M  *  N 

20  M  *  M/2 

IF(  M.Eq.O  )  GO  TO  40 
K  -  N-N 
J  -  1 
41  I  -  J 

491  *  M 

IF (  L0H1  )  50,50.52 

C  *  *  *  SORT  LOW  TO  HIGH. 

50  IF (  A(L) -GE.At 1 )  )  60  TO  60 
GO  TO  55 
C 

c  *  *  *  SORT  HIGH  TO  LOW. 

52  IF(  AU).LE.A(I)  )  GO  TO  60 
55  X  -  AID 
Y  *  B(I) 

i » cm 

ac n  *  au) 

BCD  -  BCD 

cm  *  ecu 

A(L)  -  X 

ecu  *  t 
ecu  *  i 

I  -  I-M 

IF (  I.GE.l  )  GO  TO  49 

60  J  =  J+l 

IF (  J-X  )  41,41,20 
40  RETURN 
END 


sortlj 

2 

sortlj 

3 

SORTLJ 

4 

sortlj 

5 

sortlj 

6 

SOR TL J 

7 

SORTLJ 

8 

sortlj 

9 

SORTLJ 

10 

SORTLJ 

11 

SORTLJ 

12 

sortlj 

13 

sortlj 

14 

sortlj 

15 

50RTLJ 

16 

sortlj 

17 

sortlj 

18 

sortlj 

19 

sortlj 

20 

sortlj 

21 

sortlj 

22 

SORTLJ 

22 

SORTLJ 

24 

SORTLJ 

25 

SORTLJ 

26 

SORTLJ 

27 

sortlj 

28 

sortlj 

?« 

SORTLJ 

30 

sortlj 

31 

sortlj 

3? 

30RTLJ 

33 

SORUJ 

34 

SORTLJ 

35 

sortlj 

36 

SORTLJ 

37 

SORTLJ 

39 

SORTLJ 

39 

SORTLJ 

40 
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SUBROUTINE  STEP  f  RX ,  SHAT.  CIST,  NC.  OS.  XFRACS.  INOX  1 

STEP 

7 

c 

p 

c 

•STEP*  CALCULATES  WE  INTERSECTIONS  OF  AN  OPTICAL  PAW  W!Tn 

STEP 

* 

c 

we  LINEARLY  varying  smells  IN  •'■E  ATMOSRnfb !C  MODEL.  PA*m 

STEP 

L 

c 

elements  LESS  wan  ten  meters  IN  LENGTH  are  assign^o 

5TEP 

f- 

c 

TO  WE  NEIGHBORING  SHELL. 

5YEp 

- 

c 

STEP 

C 

Cul 

STEP 

Q 

CIO 

INPUT  PXPAYETLC 

STEp 

p 

CLO 

ARGUMENT  LIST 

Stcp 

clj 

rx'i;  *  locamon  vector  to  one  eno  of  Yt>Ass!M sens  path. 

hr 

•  ? 

cu 

TYPICALLY  80*  NPt  NECESSARILY  At  the  DETECTOR,  C'J 

S^EP 

p 

CLO 

SHAT(I)  *  UNIT  VECTOR  ALONG  WE  TRANS",  SS  ION  °AW  FRO"  RY  TO 

STEP 

\C 

CLO 

RX,  CM 

SYEP 

IE 

clj 

(FOR  RX  ANP  SHAT  1=1,3' 

STE° 

1* 

CLO 

DIET  =  MAGS!  HIDE  OF  DISTANCE  ALONG  TRANSMISSION  PAW 

STEp 

l7 

CLJ 

from  py  TO  RX,  CM 

STEP 

1  o 

CLJ 

NC  =  INITIALIZATION  VALUE.  NORMALLY  SET  TO  C  AN-  lEAOR 

$rE5 

;  Q 

CLO 

TO  DS'l)  BEING  SET  TO  0.6. 

STP5 

TO 

CLJ 

XYZCO“  COMMON 

STpp 

CLJ 

NS  =  NUMBER  OF  SHELL  BOUNDARIES  IN  AW0SPHER1C 

STEP 

<7 

CLJ 

TRANSMISSION  MODEL 

5tcp 

-)  *1 

CLJ 

OUTPUT  P\RA“ETERS 

STEP 

?4 

CLJ 

ARGUMENT  LIST 

ycc 

25 

CLJ 

NC  =  NUMBER  OF  PAW  SEGMENTS  PLUS  ONE  ON  wt 

S-ep 

?f 

CLJ 

TRANSMISSION  PATH  FROM  Ry  TO  RX,  OR  EOUI VALENCY, 

STE° 

?? 

CLJ 

WE  number  OF  ENDPO!NtS. 

S*EP 

?? 

CLJ 

FOR  1.1, NC 

STEP 

clj 

OS;i*l)  =  LENGW  of  LINE  SEGMENT  I  ALONG  TRANSMISSION 

STH*> 

?" 

CLO 

PATH ,  CM 

STE  p 

?  \ 

clj 

NOSE...  IT  IS  ALNSya  TRUE  TWA*  OS”.  '=0.  A.NO 

SYEP 

5- 

clj 

D5’NC*I'=-I.  ,tmfRF  ARE  TWO  MORE  VALDES  Or  OS 

prr 

5* 

clj 

THAN  THERE  APE  SEGMFntf.  1 

-if. 

CLJ 

XERACS?:'  -  (SEE  NOT'  IN  SUBROUTINE  ATMRAT' 

5T*  r 

1Z 

CLJ 

ikox ' : x  .  index  of  shell  boundary  a*  or  just  before  thf 

hr 

3*. 

CLJ 

tart  T)f  wr  LINE  SEGmEN*  I.  INDX'NC'  WILL  BE  '<■ 

7’ 

CLJ 

INDEX  OF  wc  $uell  BOUNDARY  JUS’  Ac’f»  TJE  LAF* 

■>- 

clj 

endpoint. 

STEP 

39 

CLJ 

note.  . .  INDX'NC*:'  --  C 

STE  p 

4" 

CLJ 

prp 

•  • 

DIMENSION  DS'lOO;,  *ft> ACS'  1001 ,  INDX'IOO',  Rx'3',  SHAT',3' 

4: 

common  >  XYZCOM  /  !■>*[,  Lt“*f,  NS,  hfw£LL-'R!'.  TSfSl),  PS* SI S, 

pro 

4} 

1  XNSPEC- B!  ,10 1  Ulo.'.P,?',  ijp'id  i?  ?'  >**■'  * 

STEP 

4i 

2  fact' 

SvEp 

4L 

DA’S  ERA-  /  6 . 37 1C3E-0P  / 

^rr 

Ad 

c 

ERAD  =  RBOD*  When  /CONCDN  •  IS  ADDED 

STEp 

i1 

C 

4= 

c 

DETERMINE  INITIAL  OIRECT!ON  OF  INteGRA’ION 

hr 

AG 

RXRDOT  *  OOT'  RX,  Shat 

^TCC 

5  ; 

IF  i.  RXYDOT  '  2,  ?,  1 

pro 

L  ' 

1 

SIGN  *  1. 

prp 

t  0 

IS  -  1 

p  r  c 

C  1 

GO  T0  3 

c« 

2 

SIGN  *  -I. 

$TE* 

Li, 

;  r  = 

f- 

L 

INITIALIZE  COON*E®S  AND  OTHER  .AlUfF 

yrz 

p 

3 

RX?  .  EX'*  RY.  PX  ’ 

$Tf? 

3  9X  ? 


Rxi  *  SO «*'  RX?  ' 

STEP 

SQ 

RSD?  =  RxrDC***2 

S-cp 

6? 

^  f  NC  .EO.  0  '  CS ?  1  '■  -  0. 

srrp 

61 

If  (  NC  .5*.  0  '■  NC  =  NC  -  ! 

CTTP 

6? 

DOLE1  *  0. 

bt* 

6? 

SRAO  -  RXL 

STf? 

f>4 

NST  =  0 

S’FEP 

fc 

IF  (  IS  .LT.  0  1  NST  »  NS  *  1 

ST  Ep 

6f 

N  =  NrT 

ST  rs 

c 

SAVE  PREVIOUS  SHELL  INDEX 

6-P 

4 

NOLO  *  N 

S^E? 

t; 

0 

STEP  TO  NEXT  SHELL 

CTCO 

70 

N  =  N  *  IS 

CTCP 

71 

c 

TEiT  FOR  ATN0SOHFRE  LIMIT 

ST  E? 

7? 

IF  f  N  .EO.  0  ,0R .  N  .GT.  NS  )  GO  TO  7 

$7£P 

73 

r 

IIROA'E  SHELL  RADIUS 

STEP 

74 

SROLD  *  SR  AD 

VT£P 

7E 

SR  AO  =  ERAS  ♦  HSHLLLIN' 

STEP 

If 

IF  (  5SAD  .NE.  SROLO  )  XFRAC  =  FRAC(  SRAO.  SROLD,  9? AD,  R*L  1 

ST£p 

DISC  *  RKD?  -  !  «?  -  SRAO**?  1 

STE° 

78 

c 

NEGATIVE  DISCRIMINANT  IMPLIES  NC  INTERSECTION 

TP 

IF  (  DISC  '  8,  5,  E 

STEp 

80 

5 

DNEV  -  AMATH  SIGN*SC«T(  DISC  )  -  RXKDO*.  C.  1 

STP 

81 

DELTA  =  PNEH  -  OCLD 

STEP 

82 

IF  (  DELTA  -  1.E3  14,4,6 

STEP 

SO 

c 

UPDATE  DISTANCE  AND  STORE  INTEGRATION  CELL  INfORMJt*I0N 

STE° 

p.i 

6 

OOLD  «  DNEW 

ST;  P 

Sc 

NC  =  NC  * 

STEP 

5f 

XFRACSINC!  *  XFRAC 

STEP 

97 

INDX'NC'  *  NOLO 

ST  E  p 

8F 

c 

IGNORE  STEP  TO  TOR  GF  ATM-DSph-RE 

c-t-r? 

?? 

IF  f  NC- D  .G*.  NS  1  NC  *  NC  -  1 

^fp 

°? 

OS  INC*  11  =  0^^ 

crjp 

91 

c 

TEST  DISTANCE  LIMIT 

5T;  9 

9? 

IF  (DIET  ,GE.  DNEV*i.E3  '  !*  <  NO  -  9?  '  4 ,  10,  10 

ST*P 

0  7 

DS!NC*1 '  *  5  S '  NC  *  ’ '  -  !  ONEM  -  OIIT  ' 

S'-i’ 

94 

c 

LAS*  rELL  ON  FAth 

<;rc? 

9- 

7 

RXL  «  s.  •  *•■  RX?  *  D»S***?  *  2.  *  RXKDO T  *  DIET  ' 

STi‘P 

9f 

IF  1  N  ^  EO.  0  '  RXL  *  E® AD 

STE5 

Q  " 

NC  =  NC  *  1 

ST  r 

QC 

INDX'NC''  «  INDX'NC-1 1  *  IS 

snp 

QQ 

OS ' Nr*I ’  =  -1. 

$TE* 

'  *" 

XRRACS'NC'  •  FRAC '  51  AD,  SROLD,  Rx».  SROLO  ' 

rp 

'“l 

INOX'NC*1.'  =  0 

ST*? 

lO? 

RETURN 

<r*? 

c 

IF  [N*EGRA* JON  HAS  SEEN  DOWN,  >ITCH  TO  L'P 

S'E  ? 

■■■•4 

0 

!c  1  SIGN  '  P,  4,  4 

ST;P 

It  = 

9 

SIGN  *  1. 

STE* 

;“£ 

IS  ‘  1 

c-f  r  r 

*  x'  “ 

r 

Sr  w I D RO I N *  Or  CKIRO  AS  AN  !n*EGRA*!DN  bo  in*  'EnD  OF  CELL  ' 

'T  rp 

j'o; 

RXL  *  SDR’  RX?  -  RKD?  1 

ctp 

\  ^ 

ONER  »  -RXKDO* 

cTp 

,  *  - 

DEL'A  *  DNrta  -  GOLD 

c*  : 

IF  :  DE.TA  -  I.E?  '  a,  4,  f 

c-c-*. 

1 1  " 

c 

DIMENSION  lI“I*  HAS  BEEN  EXCEEDED 

c'r: 

1 !  ? 

10 

IN?'  qq ’  t  inDx  9S  *  ’S 

S*  f  ? 

1 1 1 

X  cs  i;  S '  09  -  -  ; 

cTrr 

c 

N'  *  99 

ctc: 

1  c 

DSM.nT‘  -  _ : 

C’C  fr 

‘  ‘  ’ 

jnOx'IOO  =  r 

S'  rr 

RE*  CRN 

r 

11  3 

EN'1 

S”*  P 

■i 


SUBROUTINE  STEPS  (  RX,  RT,  NC,  DS,  XFRACS,  !ND<  ) 

STEPS 

2 

c 

STEPS 

3 

c 

*ST£P$»  IS  AH  ENTRY  TO  *STEP«  WHEN  THE  PATH  IS  DEFINED  BY 

STEPS 

A 

c 

ITS  END  POINTS. 

STEPS 

5 

c 

STEPS 

6 

CLJ 

STEPS 

7 

cu 

INPUT  PWAMETERS 

STEPS 

8 

cu 

ARGUMENT  LIST 

STEPS 

9 

CLJ 

RX(1)  »  LOCATION  VECTOR  TO  ONE  END  OF  TRANSMISSION  PATH, 

STEPS 

10 

CLJ 

TYPICALLY  BUT  NOT  NECESSARILY  AT  THE  DETECTOR,  CM 

STEPS 

11 

CLJ 

RY(I)  -  LOCATION  VECTOR  TO  ONE  ENO  OF  TRANSMISSION  PATH, 

STEPS 

12 

CLJ 

TYPICALLY  AT  THE  SCATTERING  OR  SOURCE  POINT,  CM 

STEPS 

13 

CLJ 

(FOR  RX  AND  RY  I-l,3> 

STEPS 

14 

CLJ 

NC  *  INITIALIZATION  VALUE.  NORMALLY  SET  TO  0  AND  LEADS 

STEPS 

15 

CLJ 

TO  DS( 1)  BEING  SET  TO  0.0  IN  SUBROUTINE  STEP. 

STEPS 

16 

CLJ 

OUTPUT  PARAMETERS 

STEPS 

17 

CLJ 

INTERNAL  USE  (FOR  CALL  TO  SUBROUTINE  STEP) 

STEPS 

18 

CLJ 

SHAT(I)  *  UNIT  VECTOR  ALONG  TRANSMISSION  PATH  FROM  RY  TO  RX, 

STEPS 

19 

CLJ 

CM  (1*1,3) 

STEPS 

20 

CLJ 

DIST  =  MAGNITUDE  OF  DISTANCE  ALONG  TRANSMISSION  PATH  FROM 

STEPS 

21 

CLJ 

RY  TO  RX,  CM 

STEPS 

n 

CLJ 

ARGUMENT  LIST 

STEPS 

?3 

CLJ 

(FOLLOWING  JUANTITIES  ARE  OBTAINED  BY  A  CALL  TO  STEP) 

STEPS 

24 

CLJ 

NC,  DS.  XFRACS,  AND  INOX.  (SEE  ‘STEP*  FOR  DEFINITIONS) 

STEPS 

25 

CLJ 

STEPS 

26 

DIMENSION  DS(IOO),  XFRICS(IOO),  INOX(IOO).  SHAT(3),  RX(3),  RY(3) 

STEPS 

27 

C 

STEPS 

28 

C 

PATH  SEGMENTS  LESS  THAN  10  METERS  IN  LENGTH  ARE  NOT  TREATED  AS 

STE°S 

70 

C 

SEPARATE  INTEGRATION  STEPS. 

STEPS 

30 

r 

STEPS 

31 

CLJ 

STEPS 

32 

CLJ 

SMAT  «  VECTOR  DIFFERENCE  BETWEEN  VECTORS  RT  AND  RX 

STEPS 

33 

CLJ 

01ST  *  MAGNITUDE  OF  VECTOR  SHAT 

STEPS 

34 

CLJ 

STEPS 

35 

CALL  SUBVEC  (  RY,  RX,  SHAT  ) 

DIST  *  SORT(  DOT (  SHAT,  SHAT  )) 

STEPS 

36 

STEPS 

37 

If  (  DIST  .IT.  1.E3  )  RETURN 

STEPS 

38 

CLJ 

STEPS 

39 

CLJ 

OBTAIN  A  UNIT  VECTOR  ALONG  THE  VECTOR  WAT  AND  CALL  IT  SHAT 

STEPS 

40 

CLJ 

STEPS 

41 

CALL  UNITY  (  SHAT,  SHAT  ) 

STEPS 

42 

CALL  STEP  (  RX,  SHAT,  DIST,  NC,  DS,  XFRACS,  IHDX  ) 

STEPS 

43 

RETURN 

STEPS 

44 

END 

STEPS 

45 

SUBROUTINE  SUBVEC  (  VX,  YY,  OVXY  ) 

SUBVEC 

y 

CLJ 

SUBVEC 

3 

CLJ 

SUBROUTINE  SUBVEC  RETURNS  THE  DIFFERENCE  BETWEEN  VECTORS  VX 

SUBVEC 

4 

CLJ 

AND  YY,  I.E.,  0VXY(l-3)  *  VX(l-3)  -  VY(l-3>. 

SUBVEC 

5 

CU 

SUBVEC 

6 

DIMENSION  VX(  3) ,  VY(3).  0VXY(3) 

SUBVEC 

7 

CALL  VI  IN  (  DVXY ,  1.  ,  YX,  -1,  ,  VY  ) 

SUBVEC 

8 

RETURN 

SUBVEC 

9 

END 

SUBVEC 

X  M 
1  Li 
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SUBROUTINE  SURRADt  1DETEC,MSM,DD.$PCULR,IUP..JUP,KUP,LUP,ZLAM, 

SURRAD 

2 

S  IFIRES.RAD.UPS.UPPS.UCS.UPCS) 

SURRAD 

3 

ccc 

SURRAD 

4 

c 

SUBROUTINE  SURRAD  PROVIDES  (ESSENTIALLY),  AT  THE  POINT  P  WHERE 

SURRAD 

5 

c 

THE  OPTICAL  L INE-OF-S1GHT  FROM  THE  DETECTOR  (WHICH  IS 

S'JRRAD 

6 

c 

FICTITIOUS  IN  THE  NB°  MODULE)  AT  POINT  V  INTERSECTS  THE 

SURRAD 

7 

c 

EARTH'S  SURFACE,  THE  UPUELLING  RADIANCE  DIRECTED  TOWARD  THE 

SURRAD 

8 

c 

DETECTOR.  SURRAD  PROVIDES  TWO  COMPONENTS  OF  THE  RADIANCE... 

SURRAD 

9 

c 

(1)  THERMALLY  EMITTED  AND  (?)  SOURCE  (SUN  OR  FIREBALL) 

SURRAD 

10 

c 

REFLECTED.  REFLECTED  SKY  RADIANCE  IS  NOT  INCLUDED.  STRICTLY. 

SURRAD 

11 

c 

THE  SOURCE-REFLECTED  COMPONENT  IS  ACTUALLY  PROVIDED  IN  AN 

SURRAD 

1? 

c 

UNATTENUATED  FORM  TOGETHER  WITH  THE  PATH  PARAMETERS  (AREAL 

SURRAD 

13 

c 

DENSITY  U  AND  UP,  WITH  P  THE  PRESSURE),  INTEGRATED  ALONG  THE 

SURRAD 

14 

c 

INCOMING  PATH  FROM  THE  SOURCE,  REQUIRED  AS  INPUT  TO  A  COMPU¬ 

SURRAD 

15 

c 

TATION  OF  THE  MOLECULAR  ABSORPTION  OVER  A  TOTAL  PATH. 

SURRAD 

16 

c 

THE  AEROSOL  TRANSMITTANCE  ALONG  THE  INCOMING  PATH  FROM  THE 

SURRAD 

17 

c 

SOURCE  IS  ALSO  PROVIDED. 

SURRAD 

18 

ccc 

SURRAD 

19 

c 

THE  STATISTICAL  CLOUD  SUBMODEL  HAS  NOW  BEEN  INCLUDED. 

SURRAD 

20 

c 

SEE  SUBROUTINE  UPWELL  FOR  COMMENTS. 

SURRAD 

21 

c 

NOTE  THAT  THE  INPUT  PARAMETERS  FOR  POINT  C  IN  POSITN  COUPON 

SURRAD 

22 

c 

AND  IKM  IN  UPWELS  COMMON  FACILITATE  PROVIDING,  AS 

SURRAD 

23 

c 

ADDITIONAL  OUTPUTS  FOR  THE  PATH  FROM  THE  SUN  TO  POINT  C  AT 

SURRAD 

24 

c 

12-KM  ALTITUDE,  THE  PATH  PARAMETERS  UCS  AND  UPCS  AND  THE 

SURRAD 

rs 

c 

AEROSOL  TRANSMITTANCE  TASC(LUP). 

SURRAD 

28 

ccc 

SURRAD 

27 

c 

INPUT  PARAMETERS 

SURRAD 

28 

c 

ARGUMENT  LIST 

SURRAD 

29 

c 

IOETEC  -  FLAG  FOR  NATURE  OF  DETECTOR  LOCATION 

SURRAD 

30 

c 

-  1  IF  DETECTOR  IS  AT  A  SATELLITE  POSITION 

SURRAD 

31 

c 

( SATLAT.SATLON, SATALT)  SPECIFIED  IN 

SURRAD 

32 

c 

SATELL  COWON 

SURRAD 

33 

c 

=  2  IF  DETECTOR  IS  AT  A  POSITION  (DETLAT, 

SURRAD 

3< 

c 

DETLON.DETALT)  SPECIFIED  IN  TECTOR  COMMON. 

SURRAD 

35 

c 

THIS  LATTER  OPTION  IS  USED  WHEN  SUBROUTINE 

SURRAD 

36 

c 

SURRAD  IS  CALLED  FROM  SUBROUTINE  UPWELL. 

SURRAD 

37 

c 

MSM  -  INDEX  FOR  CATEGORY  OF  SURFACE  MATERIAL  (SEE 

SURRAD 

38 

c 

SUBROUTINE  ESURF  FOR  DEFINITIONS) 

SURRAD 

39 

c 

DO  -  ADDITIONAL  DESCRIPTOR  FOR  SELECTED  SURFACE 

SURRAD 

40 

c 

MATERIAL  (SEE  SUBROUTINE  ESURF  FOR  DEFINITIONS) 

SURRAD 

41 

c 

SPCULR  -  LOGICAL  PARAMETER 

SURRAD 

42 

c 

■TRUE.  COMPUTE  COORDINATES  OF  SPECULAR  REFLECTION 

SURRAD 

43 

c 

POINT  ON  A  SMOOTH  HORIZONTAL  WATER  SURFACE 

SURRAD 

44 

c 

-FALSE.  00  NOT  COMPUTE  COORDINATES  OF  SPECULAR 

SURRAD 

45 

c 

REFLECTION  POINT 

SURRAD 

46 

c 

EACH  OF  THE  FOLLOWING  FOUR  INDICES  SHOULD  BE  SET  TO 

SURRAD 

47 

c 

UNITY  IN  A  CALL  FROM  ANY  ROUTINE  OTHER  THAN  SUBROUTINE 

SURRAD 

48 

c 

UPWELL. 

SURRAD 

49 

c 

IUP  -  ALTITUDE-LOOP  INDEX  IN  SUBROUTINE  UPWELL 

SURRAD 

50 

c 

JUP  -  NADIR-LOOP  INDEX  IN  SUBROUTINE  UPWELL 

SURRAD 

51 

c 

KUP  -  AZIM'rtH-LOOP  INDEX  IN  SUBROUTINE  UPWELL 

SURRAD 

52 

c 

LUP  -  WAVENUMBER-LOOP  INDEX  IN  SUBROUTINE  UPWELL 

S'JRRAD 

53 

c 

ZLAM  -  WAVELENGTH,  MICROMETERS 

SURRAD 

54 

c 

IF  IRES  -  FLAG  FOR  NUMBER  OF  FIREBALLS 

SURRAD 

55 

c 

«  0  IF  NO  FIREBALL  IS  TO  BE  INCLUDED 

SURRAD 

56 

c 

(AS  IS  THE  CASE  WHEN  SUBROUTINE  SURRAD  IS 

SURRAD 

57 

c 

CALLED  FROM  SUBROUTINE  UPWELL.) 

SURRAD 

5B 
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.GT.  0  If  1FIRES  FIREBALLS  ARE  TO  BE  INF  'JOED  SURRAD  64 

with  position  and  radiant  intensit  surrad  f,r- 

SPECIE!  EO  IN  FIRRAL  CCWON  SURRAD  61 

TECTOR  COMMON  ( USED  WITH  SUBROUTINE  UPWELL'  SURRAD  6? 

DETLAT  -  DETECTOR  NORTH  LATITUDE,  RADIANS  SURRAD  67 

CETlON  -  DETECTOR  EAST  LONGITUDE,  RADIANS  SURRAD  64 

DETALT  -  DETECTOR  ALTITUDE,  KM  SURRAD  fiR 

FIRBAL  COWON  (NUT  USED  WITH  SUBROUTINE  L'PWELLl  SURRAD  66 

FB’AT(r)  -  FIREBALL-!  NORTH  LATITUDE,  RADIANS  SURRAD  67 

FBLON(I)  -  MREBALL-I  EAST  LONGITUDE,  RADIANS  SURRAD  68 

FBALT(I)  -  FIR  E!  BALL  - 1  ALTITUDE,  KM  SURRAD  69 

FBRINT ( 1 1  -  FIREBALL-1  SPECTRAL  RADIANT  INTENSITY,  SURRAD  70 

WATTS/ (SR  CM-1)  SURRAD  71 

POSITN  COMMON  SURRAD  7? 

POSLAT  -  NORTH  LATITUDE  OF  POINT  P  AT  WHICH  UNE-Of-  SURRAD  73 

SIGHT  INTERSECTS  EARTH'S  SURF  ACE ,  RADIANS  SURRAD  74 

POSLON  -  EAST  LONGITUDE  OF  POINT  P  AT  WHICH  LlNE-OF-  SURPAD  75 

SIGHT  INTERSECTS  EARTH'S  SURFACE,  RADIANS  SURRAD  76 

POSALT  -  ALTITUDE  OF  POINT  P  AT  WHICH  LINE-OF-SIGHT  SURRAD  77 

INTERSECTS  EARTH'S  SURFACE,  KM  SURRAD  78 

C12LAT  -  NORTH  LATITUDE  OF  POINT  C  AT  WHICH  LINF -OF-  SURRAD  79 

SIGHT  INTERSECTS  THE  1?-KM  ALTITUDE  SURFACE,  SURRAD  80 

RADIANS  SURRAD  81 

C12L0N  -  EAST  LONGITUDE  OF  POINT  C  AT  WHICH  LINE-OF-  SURRAD  B? 

SIGHT  INTERSECTS  THE  !?-KM  ALTITUDE  SURFACE,  SURRAD  83 

RADIANS  SURRAD  84 

C12ALT  -  ALTITUDE  OF  POINT  C  AT  WHICH  LINE-OF-SIGHT  SURRAD  85 

INTERSECTS  1?-KW  Ai  TITunc  SURFArF.  KM  SUPRA"  He. 

iAIELL  COWON  F NOT  USED  WITH  SUBROUTINE  UPUELL)  SURRAD  B7 

SATLAT  -  SATE  LITE  NORTH  LAdTUDE,  RADIANS  SURRAD  88 

SATLON  -  SATELLITE  EAST  LONGITUDE,  RADIANS  SURRAD  89 

SATALT  -  SATELLITE  ALTITUDE,  KN  SURRAD  90 

SOL  ARP  CO*ON  SURRAD  91 

SOLLAT  -  SUBSOLAR  POINT  NORTH  LAT]  T\JDE ,  RADIANS  SURRAD  9? 

SOLLON  -  SUBSOLAR  POINT  EAST  LONGITUDE.  RADIANS  SURRAD  97 

SOURCE  COMMON  SURRAD  Q4 

THE  VARIABLES  IN  THIS  COWON  ARE  RETURNED  FROM  A  CALL  TO  SURRAD  08 

SUBROUTINE  RINOUT.  CURRENTLY  (APRIL  1980)  ONLY  THE  SUN  SURRAD  96 

IS  USEP  AS  A  SOURCE  FOR  SUBROUTINE  SURRAD.  FIREBALLS  SURRAD  97 

ARE  NEVER  USED  IN  THE  CALL  TO  SUBROUTINE  SURRAD  FROM  SURRAD  «« 

SUBROUTINE  UPWELL.  SURRAD  99 

SURRAD  100 

SRCZEN(l)  -  ZENITH  ANGLE  0r  RAY  INCOMING  TO  POINT  P  FROM  SURRAD  101 

THE  SUN,  RADIANS  SU»RAD  ID? 

SRCZENfl+l  1,  L  =  1.IFIRES  (NOT  USED  WITH  SUB,  UPWELL)  SURRAD  103 

-  ZENITH  ANGLE  OF  RAY  INCOMING  TO  POINT  P  FROM  SURRAD  104 

FIREBALl-L,  RADIANS  SURRAD  105 

SRC  SR ( L ♦ 1 ) ,  1-1.IF1RES  (NOT  USED  WITH  SUB.  UPWELL)  SURRAD  108 

-  SLANT  RANGE  FROM  FJREBALL-L  TO  POINT  P,  KM  SURRAD  10' 

UPWELS  COWON  SURRAD  10R 

NWAVE(JBANO)  SURRAD  IPO 

-  NUMBER  OF  WAVENUMBERS  AT  WHICH  THE  UPWELLING  SURRAD  110 

SPECTRAL  RADIANCE  I S  TO  BE  COMPUTED  FOR  SURRAD  111 

BROAD-BAND  LOOP-INDEX  JBANP  SURRAD  11? 

IOAYV  -  INDEX  FOR  DAYLIGHT  CONDITION  AT  SUB-V-POINT  SURRAD  113 

-  0  IF  SOLAR  ZENITH  ANGLE  .GT.  90  DEGREES  SURRAD  114 

-  I  IF  50LAR  ZENITH  ANGLE  ,LE .  90  DEGREES  SURRAD  116 


2Hb 
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I  KM  -  INDFX  FOR  NUMBER  OF  ALTITUDES  AT  WHICH  SURRAD  116 

CALCULATIONS  ARE  MADE  WHEN  CLOUDS  ARE  INCLUDED.  SURRAD  II? 

(SET  IN  SUBROUTINE  UPWFIL]  SURRAD  118 

XYZCOM  CQt  MON  SURRAD  UR 

NS  -  NUMBER  OF  BOUNDARY  ALTITUDES  USED  IN  SURRAD  170 

SUBROUTINE  SHELLS  SURRAD  1?1 

DATA  STATEMENT  SURRAD  17? 

NSPECS  -  NUMBER  OF  SPECIES  IN  W1LFCULAR  TRANSMITTANCE  SURRAD  171 

MODEL  SURRAD  !?4 

NTEMP  -  NUMBER  OF  TEMPERATURE  BINS  IN  MOLECULAR  SURRAD  1?5 

TRANSMITTANCE  MODEL  SURRAD  l?fi 

SURRAD  177 

OUTPUT  PARAMETERS  SURRAD  178 

ARGUMENT  LIST  SURRAD  129 

RAD (11  -  RADIANCE  EMITTED  FROM  POINT  P  TOWARD  DETECTOR,  SURRAD  130 

WATTS /(CM**?  SR  CM- 11  SURRAD  131 

RAD (21  -  RADIANCE  OF  SOLAR  REFLECTED  RADIATION  (WITH  SURRAD  137 

INCOMING  RAY  UNATTENUATED),  W/tCM**?  SR  CM- 1 1  SURRAD  133 

RAD(L*2 1 ,  L  =  1 ,  IF  IRES  (NOT  USED  WITH  SUBROUTINE  IIPWELL)  SURRAD  134 

-  RADIANCE  OF  FIREBALL-L  RADIATION  REFLECTED  SURRAD  135 

TOWARD  DETECTOR  (WITH  INCOMING  RAY  UNATTEN-  SURRAD  135 

UATED) ,  WATTS/ (CM**?  SR  CM- 1 )  SURRAD  137 

L'PS(I.N.l)  -  AREAL  DENSITY  FOR  TEMPERATURE  I  AND  SPECIES  SURRAD  138 

n  along  incoming  solar  path  to  point  on  surrad  139 

EARTH'S  SURFACE,  CM  AT  STP  SURRAD  140 

(COMPUTED  ONLY  FOR  LUP=1 )  SURRAD  141 

UPSU.N.L+1),  L-l.tFIRES  (NOT  USED  IN  N3R  MODULE)  SURRAD  14? 

-  AREAL  DENSITY  FOR  TEMPERATURE  I  AND  SPECIES  N  SURRAD  143 

■-LONG  PATH  FROM  F1RFBALL-L  TO  POINT  P  ON  SURRAD  144 

EARTH’S  SURFACE,  CM  AT  $TP  SURRAD  145 

(COMPUTED  ONL>  FOR  LIIP  =  U  SURRAD  1 46 

UPPS(I,N,1)  -  PATH  PARAMETER  UP  (PRODUCT  OF  U  AND  SURRAD  147 

PRESSURE  P)  POR  TEMPERATURE  1  AND  SPECIES  SURRAD  148 

N  ALONG  INCOMING  SOLAR  PATH  TO  POINT  P  ON  SURRAD  149 

EARTH'S  SURFACE,  ATM-CM  AT  STP  SURRAD  150 

(COMPUTED  ONLY  FOR  LUP=1)  SURRAD  151 

UPPS(I,N,L*11,  L  =1, IF  IRES  (NO!  USED  IN  NBR  MODULE  1  SURRAD  15? 

-  PATH  parameter  up  (PRODUCT  OF  U  AND  PRESSURE  P)  SURRAD  1S3 

FOR  TEMPERATURE  I  AND  SPECIES  N  ALONG  PATH  FRO“  SURRAD  154 

FIREBALL-L  TO  POINT  P  ON  EARTH'S  SURFACE,  SURRAD  155 

ATM-CM  AT  5TP  SLJPRAD  156 

(COMPUTED  ONLY  FOR  LUP=11  SURRAD  157 

UCS!  I ,N) ,  -  SIMILAR  TO  UPS(I,N,li  AND  UPPSd.N.l)  SURRAD  IBP 

UPCS(I.N)  EXCEPT  POINT  P  IS  REPLACED  BY  POINT  C.  SURRAD  159 

AIRSOL  COWLN  SURRAD  160 

TASPfLUPl  ll)?=:,NWAVE(  JBAND1  SURRAD  161 

-  AEROSOL  TRANSMITTANCE  FOR  INCOMING  SOLAR  PAY  TO  SURRAD  IF? 

POINT  P  ON  GROUND.  SURRAD  153 

TASC(LUP)  LUP*1,NWAVE(JBAND)  SURRAD  164 

-  AEROSOL  TRANSMITTANCE  FOR  INCOMING  Sni  4°  »»»  ™  SUDCan  16R 

POINT  C  AT  1?-KM  ALTITUDE.  SURRAD  166 

TAFPfL'  -  AEROSOL  TRANSMITTANCE  FOR  INCOMING  RAY  FROM  SURRAD  !67 

FIREBALL-L  TO  POINT  P  ON  GROUND  SURRAD  16c 

50LARP  CO»WnN  SURRAD  169 

SOLIRR(K)  K-l ,NW#VE( JBAND)  SURRAD  170 

-  SOLAR  SPECTRAL  IRRADI ANCE  AT  THE  TOP  OF  THE  SURRAD  VI 

EARTH'S  ATMOSPHERE  AT  WAYENUMBER-INDEX  K  SURRAD  17? 
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c 

ccc 


cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 


DIMENSION 
COWON /AIR  SOI/ 
COWON/FIRBAL/ 
COWON/POS1TN/ 

s 

COWON/SATELL/ 

COWON/SOLARP/ 

COWON/SOURCE/ 

COWON/TECTOR/ 


MATTS  /  (  CM**2  CH-1  ) 

DIMENSION  RF(3).RP(3).RC(3),RS(3),PLNCK(10) 

DIMENSION  DD(7) ,RAD(12) ,UPS( 10,10,11} ,UPPS( 10, 10,11 ) , 

S  UCS(10,10)  .UPCS(IO.IO) 

DS(100),XFR4CS(100),INDX(100) 

TASP(10),TASC(10),TAFP;iO) 

FBLAT(IO) ,F8L0N(10) ,FBALT(  10) ,FBRINT( 10} 

POSLAT ,  POSLON ,  P0SAL7 ,  SPCLAT ,  SPCLON 
,C12LAT,CiaONtCi?ALT 
SATL AT , SATLON , SAT AL  T , SATZE  N . SAT  AZ I 
SOLLAT.SOUON.SOLIRRflO) 

SRCLAT,SRCLON,SRCALT,SR:FlG,SRCZEN(ll),SSCSRdl) 
DETLAT,DETLON,DETALT,UETZEN,OETAZI ( 11 ) 
COMMON/UPHELS/  UPWALT,UPWLON,UPWlAT,NALT( 5) ,ZKM( 13, 5) .NNADIR .NAZI , 

*  NWAVE(5),1DAYV,CLDFLG,UPRADN[13,10,5).WV(10,5),IKM, 

*  NBANDS 
C0MM0N/UPWELS1/ 

2  R010(6,10),R010A(6,10.10),R010N(6,10), 

3  R025(6,10),RO?5A(6.10,10).R025N(5,10), 

4  R050( 6 , 10 ) , R  050A( 6 , 10 , 10) , R  050N (6,10), 

5  R090(6,10),ROSOA(6,10,10),R090N(6,10). 

6  R100(6,10).R100A(6,10,10),R100N(6,10) 

7  ,ARCVA(6, 10,10), ARCVN[6, ID) 

COMMON /UPHELS2/  JBAN01 

C0W0N/UPWELS3/  UPRAD(6,10) ,UPRADA( 13,10,10) 

COWON/  XYZCOM/  ITMTE.LTMTE ,NS,HSHELL(81 ) ,TPX(81,12) , 

1  11(10,10, 2). UP(  10, 10, 2). NMOLS,  FACT 

LOGICAL  FIRST. SPCULR.ESURF1 
DATA  RSUN  /  1.495979E*08  / 

DATA  N SPECS, NTEMP  /  10,10  / 

SUBROUTINE  SURRAD  IS  CALLED  FROM  SUBROUTINE  UPWELL  FOR  ALL 
VALUES  OF  I.J.K.L-  HOWEVER, 'SWITCHES  ELIMINATE  REOUNtWT 
CALCULATIOPS.  FOR  EXAMPLE, 

*  CALL  TO  FUNCTION  PLANCK  DEPENDS  ONLY  ON  L. 

*  CALL  TO  SUBROUTINE  SOLRAD  DEPENDS  ONLY  ON  L. 

*  PATH  PARAMETERS  FOR  PATH  FROM  PO!NT  P  TO  SUN  ARE 
INDEPENDENT  OE  L  AND  ARE  ASSUMED  (TO  A  GOOD  APPROXIMATION) 
TO  BE  INDEPENDENT  OF  I,J,K. 

LIKEWISE  FOR  POINT  C,  EXCEPT  THAT  ITS  ALTITUDE  IS  NOT  0.0 
BUT  12  KM. 

*  AEROSOL  TRANSMITTANCE  FROM  POINT  P  TO  SUN  DEPENDS  ONLY  ON  L 
AND  THE  (ASSUMED)  SINGLE  PATH. 

*  AEROSOL  TRANSMITTANCE  FROM  POINT  C  TO  SUN  DEPEND5  ONLY  ON  L 
AND  THE  (ASSUMED)  SINGLE  PATH. 

IF(  LUP.GT.l  )  GO  TO  5 

DETERMINE  WHETHER  DETECTOR  IS  IN  SATELLITE  SPECIFIED  IN 
SATELL  COWOH.  IDETEC-2  WHEN  SUBROUTINE  UPWELL  CALLS 
SUBROUTINE  SURRAD. 

IF (  IDETEC.EQ.2  )  GO  TO  1 

DETECTOR  IS  AT  SATELLITE,  SO  RESET  DETECTOR  LOCATION. 

OETLAT  «  SATLAT 
DECLON  =  SATLON 


SURRAD 

173 

SURRAD 

174 

SURRAD 

175 

SURRAD 

176 

SURRAD 

177 

SURRAD 

178 

AIRSOL 

2 

FIRBAL 

2 

POSITN 

2 

POSITN 

3 

SATELL 

2 

SOLARP 

2 

SOURCE 

2 

TECTOR 

2 

UPWELS 

2 

UPWELS 

3 

UPWELS 

4 

UPWELS 

5 

UPWELS 

6 

UPWELS 

7 

UPWELS 

8 

UPWELS 

9 

UPWELS 

10 

UPWELS 

1! 

XYZCOM 

2 

XYZCOM 

3 

XYZCOM 

4 

XYZCOM 

5 

SURRAD 

188 

SURRAD 

189 

SURRAD 

190 

SURRAD 

191 

SURRAD 

19? 

SURRAD 

193 

SURRAD 

194 

SURRAD 

195 

SURRAD 

196 

SURRAD 

197 

SURRAD 

198 

SURRAD 

199 

SURRAD 

200 

SURRAD 

201 

SURRAD 

202 

SURRAD 

201 

SURRAD 

204 

SURRAD 

205 

SURRAD 

206 

SURRAD 

2C7 

SURRAD 

20B 

SURRAD 

209 

SURRAD 

210 

SURRAD 

211 

SURRAD 

21? 

SURRAD 

213 

SURRAD 

214 

SURRAD 

215 

SURRAD 

216 

288 


DETALT  =  SATALT 

SURRAD 

21? 

cc 

FIRST.  CONSIDER  ONLY  THE  SUN  AS  A  SOURCt  AND  ALSO  SET  DETECTOR 

SURRAD 

218 

cc 

ZENITH  AND  (IF  MSM.GT.2  AND  IDAY-1)  AZIMUTH  ANGLES  FOR  SUN 

SURRAD 

219 

cc 

AS  SOURCE 

SURRAD 

220 

cc 

SURRAD 

221 

1  CALL  RINOUT(MSM,  0  ,IOAY) 

SURRAD 

222 

cc 

SURRAD 

223 

cc 

NOW  HAVE  I DAY  AT  POINT  P.  OETZEN,  (IF  IDAY-1)  SRCZEN(l),  AND 

SURRAD 

224 

cc 

(IF  IDAY-1  AND  MSM.GT.2)  DETA2I{1). 

SURRAD 

225 

cc 

SURRAD 

226 

cc 

THE  COMPLICATIONS  RESULTING  FROM  THE  SOLAR  TERMINATOR  BEING 

SURRAD 

227 

cc 

VISIBLE  FROM  POINT  V  ARE  HOT  HANDLED  IN  A  COMPLETELY 

SURRAD 

228 

cc 

CONSISTENT  HAY.  IF  SUBPOINT  V  IS  IN  DAYLIGHT  (IDAYV-1),  THE 

SURRAD 

229 

cc 

DIURNAL  CONDITION  AT  EACH  POINT  P  (AS  INDICATED  BY  INDEX  IDAY) 

SURRAD 

230 

cc 

IS  RECOGNIZED,  BUT  IF  SUBPOINT  V  IS  IN  DARKNESS  (IDAYV-O), 

SURRAD 

231 

cc 

THEN  DARKNESS  IS  IMPOSED  ON  ALL  POINTS  P  BY  SETTING  IDAY=0. 

SURRAD 

232 

cc 

SURRAD 

233 

IF( 

IDAYV.EQ.O  )  IDAY  =  0 

SURRAD 

234 

cc 

SURRAD 

235 

cc 

IFIRES-0  WHEN  SUBROUTINE  UPWELL  CALLS  SUBROUTINE  SURRAD. 

SURRAD 

23e 

IF  ( 

IF IRES.CT.O  )  CALL  R!NOUT(MSM, IF  IRES. IDAY) 

SURRAD 

237 

cc 

NOW  HAVE  ZENITH  ANGLES  SRCZEN(L+1)  AND  SLANT  RANGES  SRCSR(L+1) 

SURRAD 

238 

cc 

OF  FIREBALL-L  (L-l.IFIRES)  AND  DETECTOR  AZIMJTHS  DETAZI  (L*l) . 

SURRAD 

239 

cc 

SURRAD 

240 

cc 

SET  PARAMETERS  TO  CALL  ESURF  FOR  SUN  AS  SOURCE. 

SURRAD 

241 

TH1 

-  -1.0 

SURRAD 

242 

PS  I 

-  -1.0 

SURRAD 

243 

IF  ( 

IDAY.EQ.l  )  THI  »  SRCZEN(l) 

SURRAD 

244 

IF  ( 

( IDAY.EQ.l)  .AND.  (MSM.GT.2)  )  PS1  -  OETAZI(l) 

SURRAD 

245 

THR 

-  DETZEN 

SURRAO 

246 

HHH 

-  POSALT 

SURRAD 

247 

5  CONTINUE 

SURRAD 

248 

cc 

CALL  ESURF  WITH  ESURF1  SET  TO  .TRUE.  SINCE  HE  HANT  ALL  THREE 

SURRAD 

249 

cc 

OUTPUTS  (SFR.  EPSD.  TKS).  NOTE  THAT  EVERY  CALL  TO  ESURF  FROM 

SURRAD 

250 

cc 

SURRAD  (WITHIN  NBR  MODULE)  QUALIFIES  AS  A  FIRST  CALL. 

SURRAD 

251 

ESURF1  -  .TRUE. 

SURRAD 

252 

CALL  ESURF (THI, THR, PSI.HHH.MSM.DD.SPCULR.ZLAM, IDAY. IFJRES.ESURF1, 

SURRAD 

253 

S  SFR, EPSD. TKS) 

SURRAD 

254 

cc 

SURRAD 

255 

cc 

BYPASS  PRINT  OF  CPSO  AND  TKS  UNLESS  INDICES  I,  0,  K.  AND  L  IN 

SURRAD 

256 

cc 

SUBROUTINE  UFHELL  (KNOWN  HERE  AS  IUP,  JUP.  KUP,  AND  LUP)  HAVE 

SURRAD 

257 

cc 

VALUES  OF  UNITY.  HOWEVER.  HE  AND  THE  CODE  RECOGNIZE  THE  FACT 

SURRAD 

258 

cc 

THAT  WHEREAS  TXS  DEPENDS  ONLY  ON  THE  SURFACE  ALTITUDE.  EPSD 

SURRAD 

259 

cc 

DEPENDS  ON  ANGIE  AND  WAVELENGTH. 

SURRAD 

260 

cc 

SURRAD 

261 

I JK 

*  IUP  ♦  JUP  +  KUP 

SURRAD 

262 

IJKL  *  IJK  +  LUP 

SURRAD 

263 

cc 

WE  AVOID  USING  THE  QUANTITY  ( IKM+JUP+KUP+LUP)  BECAUSE  THE 

SURRAD 

264 

cc 

MINIMUM  VALUE  OF  IKM  IS  0.  THEREFORE,  WE  USE... 

SURRAD 

265 

JK 

-  JUP  +  KUP 

SURRAD 

266 

JKL 

*  JK  *  LUP 

SURRAD 

267 

IF{ 

IJKL  .EQ.  4  )  WR  ITE( 6 , 111 )  EPSD, TKS 

SURRAD 

268 

111  F0RHAT(1H0,1X  *  EPSD.  TXS  -  *,  1P2EH.6  *  (FROM  SUBROUTINE  SURRAD  SURRAD 

269 

t.  FORMAT  111}*) 

SURRAD 

270 

CC 

SURRAD 

271 

cc 

NOW  HAVE  EPSD,  TKS.  AND  (IF  I  DAY-1)  SFR. 

SURRAD 

27? 

CC 

ALSO.  IF  I  DAY-1.  MSM-2,  AND  SPCULR-.TRUE.,  WE  HAVE  (TWOUGH 

SURRAD 

273 

289 


cc 

P0S1TN  COMMON)  THE  COORDINATES  'SPCLAT.SPCLON)  OF  THE  SOLAR 

SURE  AD 

?74 

cc 

SPECULAR  REFLECTION  POIN'  ON  A  SMOOTH  HORIZONTAL  WATER  SURFACE 

SURRAD 

275 

cc 

COMPUTED  IN  PLITTR.  TO  FACITATE  PRESERVING  THESE  COORDINATES, 

SURRAD 

276 

cc 

DEFINE  NEW  VARIABLES. 

SURRAD 

277 

cc 

SURRAD 

278 

S  SPLAT  =  SPCLAT 

SURRAD 

279 

SSPION  =  SPCLON 

SURRAD 

230 

cc 

IF  THESE  COORDINATES  PROVE  TO  BE  OF  INTERE<‘I ,  ADD  ITIONAL 

SURRAD 

281 

cc 

PRESERVING  VARIABLES  WILL  BE  NEEDED  AS  SUBROUTINE  U?WELL 

FURR  AD 

282 

cc 

LOOPS  OVER  ALTITUDES. 

DURR  AD 

283 

cc 

SURRAD 

284 

cc 

BYPASS  CALL  TO  FUNCTION  PLANCK  UNLESS  INDICES  I.J.  AND  K  IN 

SURRAD 

285 

cc 

SUBROUTINE  UPWELL  (KNOWN  HERE  AS  IUP.JUP,  AND  KUP)  HAVE 

SURRAD 

286 

cc 

VALUFS  OF  UNITY. 

SURRAD 

287 

IF (  IJK.GT.3  )  GO  TO  10 

SURRAD 

288 

W  =  1.0E+04/ZLAM 

SURRAD 

289 

PLNCK(LUP)  *  PLANCK (TKS.W) 

SURRAD 

290 

10 

CONTINUE 

SURRAD 

291 

RAD(l)  «  EPSD  *  PLNCK(UJP) 

SURRAD 

292 

cc 

NOW  HAVE  EMITTED  SPECTRAL  RADIANCE,  RAD(l). 

SURRAD 

293 

cc 

SURRAD 

294 

RAO( 2)  =  0.0 

SURRAD 

295 

IF (  IDAYV  .EQ.  0  )  GO  TO  50 

SURRAD 

296 

cc 

SURRAD 

297 

cc 

ASSUME  PATH  PARAMETERS  FROM  POINT  P  TO  THE  SUN  ARE  EFFECTIVELY 

SURRAD 

298 

cc 

INDEPENDENT  OF  THE  POINT  P  LOCATION  ON  THE  SURFACE.  THUS, 

SURRAD 

299 

cc 

BYPASS  ZEROING  PATH  PARAMETERS  HERE,  AND  THEIR  COMPUTATION 

SURRAD 

300 

cc 

LATER.  UNLESS  IUP= JUP“KUP=LUP=t , 

SURRAD 

301 

IP(  IJKL.GT.4  )  GO  TO  21 

SURRAD 

302 

DO  20  N=1,NSPECS 

SURRAD 

303 

DO  20  I=1,NTEMP 

SURRAD 

304 

U  PSd.N.i;  ■=  0.0 

SURRAD 

305 

UPPS(I,N,1)  -  0.0 

SURRAD 

306 

20  CONTINUE 

SURRAD 

307 

21 

CONTINUE 

jURRAD 

308 

cc 

S’JORAD 

309 

cc 

ALSO  ASSUME  PATH  PARAMETERS  FROM  POINT  C  TO  THE  SUN  ARE 

SURRAD 

310 

cc 

EFFECTIVELY  INDEPENDENT  OF  THE  POINT-C  LOCATION  ON  THE  I2-KM 

SURRAD 

311 

cc 

ALTITUDE  SURFACE.  THUS  BYPASS  ZEROING  PATH  PARAMETERS  HERE, 

SURRAD 

312 

cc 

AND  THEIR  COMPUTATION  LATER,  UNLESS  IKM=JUP=KUP=LUP=1  . 

SURRAD 

313 

IF (  (  I KM  .NE.  1  }  .OR.  (  UKL  .GT.  3)1  GO  TO  23 

SURRAD 

314 

DO  22  N=1  .NSPECS 

SURRAD 

315 

00  22  I =1 ,NTEMP 

SURRAD 

316 

U  CS(I,N)  *  O.C 

SURRAD 

317 

UPCS(I.N)  =  0.0 

SURRAD 

318 

22 

CONTINUE 

SURRAD 

319 

23 

CONTINUE 

SURRAD 

320 

cc 

SURRAD 

321 

cc 

IF  SUN  IS  PRESENT,  GET  THE  SOLAR  SPECTRAL  1RRADI ANCE 

SURRAD 

322 

cc 

E  (WdC“«2  CM- 1))  AT  THE  TOP  OF  THE  ATMOSPHERE. 

SURRAD 

323 

cc 

BYPASS  CALL  TO  SUBROUTINE  SOLRAD  UNLESS  IUP  =  JUP*KUP  =  1 . 

SURRAD 

324 

IF (  1JK.GT.3  )  GO  TO  23 

SURRAD 

326 

CALL  SOLRAO(3,W,E! 

SURRAD 

326 

SOLIRR(LUP)  *  E 

SURRAD 

3?7 

NWAVEJ  ■=  NWAVE(  JBANDI ) 

SURRAD 

32P 

IF (  LUP  ,E0-  NWAVEJ  )  WRITE(6,125)  ( SOI  IRR U° ) ,LP*1  ,NWAVE J1 

SURRAD 

329 

125  FORMAT  [1H0.28X  ,77H*  *  *  SOLAR  SPECTRAL  IRRADi  ANCE  SOIIRR'U,  (L  =  l 

SURRAD 

330 

290 


J.NWAVEJl,  W/ECM++2  CK-1)  *  *  */48X,»(FROM  SUBROUTINE  SURRAD,  FDR HA 

SURRAO 

33! 

JT  125)*/2X,irflOE12.41) 

SURRAO 

33? 

25  CONTINUE 

SURRAO 

333 

cc 

SURRAO 

334 

cc 

COMPUTE  SPECTRAL  RADIANCE  OF  IUNATTENUATEO)  DIRECT  SOLAR 

SURRAO 

335 

cc 

RADIATION  REFLECTED  FRQM  EARTH  SURFACE  AT  POINT  P  TOWARDS 

SURRAO 

336 

cc 

POINT  V. 

SURPAD 

337 

RAO{2)  =  SFR  *  SOLIRR (LUP)  *  CCS'THI) 

SURRAO 

335 

cc 

SURRAO 

3?9 

IF (  I JKL  .GT.  4  )  GO  TO  2? 

SURRAD 

340 

cc 

SURRAO 

34'. 

cc 

PREPARE  TO  GET  PATH  PARAMETERS  FOR  PATH  FROM  POINT  P  TO  SUN, 

SURRAD 

34? 

IX 

WHICH  CARRIES  THROUGH  TO  STATEMENT  LABEL  41. 

SURPAD 

343 

cc 

SURRAD 

344 

re 

OBTAIN  EARTH-CENTERED  CARTESIAN  COORDINATES  OF  POINT  P. 

SURRAD 

345 

CALL  GEOXYZIPOSALT.PCSLAT ,®OSLON,RP( 1),RP(?),RP(31) 

SURRAD 

346 

CALL  VUN(RP,1.0E+O5,RP,O. 0,0.0) 

SURRAD 

34? 

cc 

SURRAO 

34= 

cc 

NEED  TO  DETERMINE  LOCATION  OF  SUN. 

SURRAD 

349 

CALL  GEOXYZ 'RSUN, SOLLAT.SOlLON.RS! l),RS(2j,R$(3)) 

SURRAD 

3S0 

CALL  VLIN'RS,1.0E+05,RS,0.0,0.0) 

SURRAD 

351 

cc 

HAVE  NOW  DETERMINtT  RP  AND  RS. 

SURRAD 

35? 

cc 

SURRAD 

353 

cc 

INITIALIZE  NC  SO  THAT  DS(1)  WILL  BE  SET  TO  0.0  IN  SUBROUTINE 

SURRAD 

35  A 

cc 

STEP. 

SURRAD 

355 

NC  -  0 

SURRAD 

356 

CALL  STEPS!  RP,RS,NC,CS, XFRACS, INDX  1 

SURPAD 

357 

cc 

NOW  HAVE  NC,  OS,  XFRACS,  AND  INDX  FOR  PATH  FROM  S  TO  P. 

SURRAD 

365 

cc 

SURRAD 

359 

cc 

INITIALIZE  LOGICAL  VARIABLE,  FIRST,  IN  PREPARATION  FOR  FIRST 

SURRAD 

360 

cc 

CALL  TO  SUBROUTINE  PATH. 

SURRAD 

36! 

FIRST  =  .TRUE. 

SURRAD 

362 

27  CONTINUE 

5URPAD 

363 

cc 

SURRAD 

in  a 

Iff  IJX  .GT.  3  )  GO  TO  31 

SURRAD 

jf  5 

cc 

BEFORE  STARTING  00-30  LOOP,  OBTAIN  THE  AEROSOL  EXTINCTION 

SURRAO 

366 

cc 

COEFFICIENT  AT  THE  INITIAL  ENDPOINT  OF  THE  PATH. 

SURRAD 

36? 

TASP(LUP)  *  1.0 

SURRAD 

365 

LI  =  INDX(I )  J  12  =  INDX(2) 

SURRAD 

369 

H5P  =  XFRACStl )  *  HSHELL(Ll)  *  (1 . -XFRACS ! 1 ) 1  *  HSHEIL(L2) 

SURRAD 

370 

CALL  AEROSOL  (  HSP, ZLAM.XKSCT.XKABS.GBAR  ) 

SLIP  RAD 

371 

XXEXTP  =  XKSCT  ♦  XKABS 

SURRAD 

37? 

DO  30  J=1 ,NC 

SURRAD 

373 

cc 

ON  THE  PASS  FOR  WHICH  J=NC,  OSINC+I)  WILL  BE  -1.0.  INDICATING 

SURRAD 

374 

cc 

THAT  THE  LAST  SEGMENT  HAS  BEEN  PROCESSED.  (THE  LOOP  COULD 

SURRAD 

3’5 

cc 

HAVE  BEEN  FROM  JO  TO  J=NC-1  AND  THE  FOLLOWING  TEST 

SURRAD 

376 

cc 

ELIMINATED.) 

SURRAD 

377 

IF(  D5[ J+l ) .LT.0.0  )  GO  TO  30 

SURRAD 

37? 

IF (  1JAL  .EO.  «  )  CALL  PATH'  F IRST, INDX { J)  ,D5[  J+l ) .XFRACSf  J)  ) 

SURRAD 

379 

11  -  INDX  (  J  )  $  L2  *  INOX !  JO ) 

SURRAD 

HSO  *  XFRACS!  J+l )  *  HSHELUL2)  +  (1. -XFRACS!  >1))  *  HSHELL(Ll) 

SURRAD 

39: 

CALL  AEROSOL  (  HSQ, ZLAM.XKSCT.XKABS.GBAR  I 

SURRAD 

3P? 

XKEXTO  *  XKSCT  ♦  XKABS 

SURRAD 

393 

XKEXT  =  ACCOU  2.O., OS! J+l), XKEXTP, XKEXTO, 0., OS! J+l  1  )  /  OS! J+l! 

SURRAD 

394 

TASP(LUP)  =  TASP(LUP)  *  EXP(  -XKEXT+DS' J+l )  ) 

SURRAO 

395 

XKEXTP  *  XKEXTQ 

SURRAD 

30  CONTINUE 

SURRAO 

38' 

2<H 


r 

■ 

.  *■ 

31  CONTINUE 

SURRAD 

388 

cc 

NOW  HAVE  PATH  PARAXTERS  U  AND  UP  FOR  SOLAR  RAX  TO  POINT  P. 

SURRAD 

389 

cc 

SINCE  THESE  PATH  PARAMETERS  ARE  INDEPENDENT  OF  WAVELENGTH, 

SURRAD 

390 

cc 

THEY  NEED  BE  CONFUTED  ONLY  ONCE. 

SURRAD 

391 

cc 

ALSO  HAVE  AEROSOL  TRANSMITTANCE,  TASP(LUP),  FOR  SOLAR  RAY  TO 

SLRRAD 

392 

cc 

POINT  P,  WHICH  IS  WAVELENGTH  DEPENDENT. 

S1RRAD 

393 

IF (  [JXL  .GT.  4  )  SO  TO  41 

SURRAD 

394 

cc 

REDEFINE  VARIABLES. 

SURRAD 

395 

DO  40  N-l.NSPECS 

SURRAD 

396 

' 

DO  40  I-l.NTEX 

SURRAD 

397 

U  PS!  !,N,1)  ■  U  ( I,N,2) 

SURRAD 

393 

UPPS(l.N.l)  -  UP(!,N,2) 

SURRAD 

399 

40  CONTINUE 

SURRAD 

400 

WRITE(6,140) 

SURRAD 

401 

140  FORMAT  (1H0.44X.43H+  *  •  PATH  PARAMETERS,  POINT  2  TO  SUN  *  *  */4«X 

SURRAD 

40? 

$,*{FROM  SUBROUTINE  SURRAD,  FORMATS  140, 142)»/2X , *TEMPERATIWE/SPECI 

SURRAD 

403 

SES.  ( (UPS(M,N,1 ),N=1,NSPECS) ,N»1 ,2) *) 

SURRAD 

40a 

WR1TE(6,141)  ( (M v  (U  PS(M,N, 1 ) ,N=1 .NSPECS) ) .M-l , 2) 

SURRAD 

405 

141  FORMAT  (2X.I3.1P10E12.4) 

SURRAD 

406 

WRITE (6, 142) 

SURRAD 

407 

142  FORMAT  (1H0.1X,*TEMP£RATURE/ SPECIES.  ( (UPPS(M,N ,1 ) ,N=1,NSPECS) ,M=1 

SURRAD 

408 

1,2)*) 

SURRAD 

409 

WIT£(6,141)  ((M.  (UPPS(M,N,1), N-l.NSPECS)). M«l, 2) 

SURRAD 

410 

41  CONTINUE 

SURRAD 

411 

CC 

SURRAD 

412 

CC 

SURRAD 

413 

cc 

PARAMETERS  FOR  PATH  FROM  S  TO  C  NEEO  BE  DONE  ONLY  ONCE. 

SURRAD 

414 

. 

IF (  (  I KM  , NE.  1  )  .OR.  {  JK  .GT.  2  )  )  GO  TO  50 

SURRAD 

415 

IF(  LUP  .GT.  1  )  GO  TO  42 

SURRAD 

416 

CC 

SURRAD 

417 

cc 

PREPARE  TO  GET  PATH  PARAMETERS  FOR  PATH  FROM  POINT  C  TO  SUN. 

SURRAD 

418 

. 

a 

SURRAD 

419 

cc 

OBTAIN  EARTH-CENTEREO  CARTESIAN  COORDINATES  OF  POINT  C. 

SURRAD 

420 

CALL  GEOXYZ(C12ALT,C12LAT,C12LON,RC(l) ,RC(2) ,RC( 3)) 

SURRAD 

421 

CALL  VLIN(RC,l.OE+O5.RC,0. 0,0.0) 

SURRAD 

422 

. 

cc 

SURRAD 

423 

NC  *  0 

SURRAD 

424 

CALL  STEPS!  RC.RS,NC,DS,XFRAC$,IN0X  ) 

SURRAD 

«?5 

cc 

NOW  HAVE  NC.  DS,  XFRACS.  AND  INDX  FOR  PATH  FROM  S  TO  C. 

SURRAD 

426 

>  , 

FIRST  -  .TRUE. 

SURRAD 

427 

42  CONTINUE 

SURRAD 

428 

. 

cc 

SURRAD 

429 

TASC(LUP)  »  1.0 

SURRAD 

430 

LI  -  INDX ( 1 )  1  L2  *  1N0X(2) 

SURRAD 

431 

HSP  •  XFRACS(l)  *  HSHELL(Ll)  ♦  ( 1 . -XFRACSd  ) )  *  HSHELL(L2) 

SURRAD 

43? 

! 

CALL  AEROSOL  (  HSP.ZLAM, XKSCT, XKABS, GBAD  ) 

SURRAD 

433 

XKEXTP  -  XKSCT  +  XKABS 

SURRAD 

434 

DO  44  J-l.NC 

SURRAD 

435 

I F (  DS( J+l )  .LT.  0.0  )  GO  TO  44 

SURRAD 

436 

IF (  LUP  .EQ.  1  )  CALL  PATH(  FIRST, INDX! J) ,D5( J+l ) ,XFRACS( J)  ) 

SURRAD 

437 

LI  *  INOX(  J  )  i  12  *  INDX (J+l ) 

SURRAD 

438 

HSQ  *  XFRAC$(  J+l )  ♦  H$HELL(L2)  ♦  ( 1 . -  XFRACS ( J+l ) )  *  HSHELL(Ll) 

SURRAD 

439 

CA.L  AEROSOL  (  H SQ, ZLAM, XKSCT ,XKA3S, 68 AR  ) 

SURRAD 

440 

XKEXTO  -  XKSCT  +  XKABS 

SURRAD 

441 

XKEXT  •  ACCUM{  2,0. ,DS{ J+l ) .XKEXTP, XKEXTQ.O. ,05(0+1)  )  !  D'(J+I) 

SURRAD 

44? 

TASC(LUP)  »  TASC(LUP)  *  EXP(  -XXEXT*DS(  J+l )  ) 

SURRAD 

443 

t 

'  \ 

; 

■ 

i 

XKEXTP  *  XKEXTO 

SURRAD 

444 

'  '  t 

292 

_ _ _ _ _ _  , 

44 

CONTI  NUT 

SURRAD 

445 

cc 

NOW  HAVE  PATH  PARAMETERS  U  AND  UP  FOR  SOLAR  RAT  TC  POINT  C. 

SURRAD 

445 

cc 

SINCE  THESE  PATH  PARAMETERS  ARE  INDEPENDENT  OF  WAVELENGTH, 

SIR1RAD 

447 

cc 

THEY  NEED  BE  CCWUTEO  ONLY  ONCE. 

SURRAD 

448 

cc 

ALSO  HAVE  A£RO.».L  TRANSMITTANCE,  TASC(LUP),  FOR  SOLAR  RAY  TO 

SURRAD 

449 

cc 

POINT  C,  WHICH  IS  WAVELENGTH  DEPENDENT. 

SL“RAfl 

4  SO 

1F(  LUP  .GT.  1  )  GO  TO  SO 

SURRAD 

«S1 

cc 

REDEFINE  VARIABLES. 

SURRAD 

45? 

00  46  Nd.NSPECS 

SURRAD 

453 

DO  46  I-l.NTEMP 

SURRAD 

454 

U  CS'I.N)  ■  (1.N.2) 

SURRAD 

455 

UPCS(I.N)  *  UP ( 1 ,  N ,  2 ) 

SURRAD 

455 

46 

CONTINUE 

SURRAD 

457 

WRITE(6.146) 

SURRAD 

4  SB 

146 

FORKAT  (1M0.44X.4JH*  *  *  PA^  PARAMETERS,  POINT  C  TO  SUN  »  *  */46X 

SURRAD 

459 

$,*(FROM  SUBROUTINE  SURRAD,  FORMATS  146,148)»/2X  *TEW>ERATURE/SPECI 

SURRAD 

460 

JE5.  ((UCS(I,N),M*l.NSPECS).l*l.?)*) 

SURRAD 

*6! 

WR1TE(6,141j  ((I,  (U  CS(I,N),N=1,NSPECS!),I=1,2) 

SURRAD 

46? 

WR1TE(6,148) 

SURRAD 

463 

148 

FORMAT  (1H0,1X.*TEMPERATURE/SPEC1ES.  ((UPCS(I,N),N=1,NSPECS).I=1,? 

SURRAD 

464 

S)‘) 

SURRAD 

465 

tf)ITE(6,141)  ((I,  (UPCS(  I  ,N)  ,N-1  .NSPECS) ) ,  1*1 ,2) 

SURRAD 

466 

SO 

CONTINUE 

SURRAD 

467 

cc 

SURRAD 

468 

cc 

THE  REMAINING  PORTION  OF  THIS  SUBROUTINE.  MOT  TO  BE  USED  WITH 

SURRAD 

*6° 

cc 

SUBROUTINE  UPWELL,  IS  AVOIDED  BY  CALLING  SUBROUTINE  SURRAD 

SURRAD 

470 

cc 

WITH  ifires*o  . 

SURRAD 

471 

cc 

SURRAD 

47? 

IF (  IFIRES.EQ.O  )  RFTlAiN 

SURRAD 

473 

cc 

SURRAD 

474 

cc- 

SURRAD 

475 

cc 

NOW  CONSIDER  THE  FIREBALLS  AS  SOURCES. 

SURRAD 

476 

cc 

NOTE  THAT  THE  NATURAL  CLOUD  MODULE  IS  NOT  INVOLVED  WITH  THE 

SURRAD 

477 

cc 

REMAINING  PORTION  OF  THIS  ROUTINE. 

SURRAD 

478 

cc 

SURRAD 

479 

cc 

ASSUME  *HAT  LUP  (IN  ARGUMENT  LIST)  ALSO  SERVES  AS  A  WAVElFNGTH  SURRAD 

480 

cc 

INDEX. 

SURRAD 

481 

DO  99  L-l.IFIRES 

SURRAD 

482 

cc 

GET  THE  (UNATTENUATED)  IRRAOIANCE,  EFIRE,  OF  FIREBALL-L  AT 

SURRAD 

483 

cc 

SLANT  RANGE  SRCSR(L*1).  IN  WATTS/ICM**?  CM-i). 

SURRAD 

434 

cc 

SURRAD 

4?S 

ETIRE  *  FBRINT(l)/(l.F+10*SRCSR(L*ll*SRCSR(L*H) 

SURRAD 

486 

cc 

SURRAD 

481 

cc 

SET  PARAMETERS  TO  CALL  ESURF  . 

SURRAD 

4HS 

THI  «  SRC2EN(L*1) 

SURRAD 

4?9 

P5I  *  DETA/Hl  +  II 

SURRAD 

490 

cc 

call  ESURF  WITH  ESL*F1  set  TO  .FALSE.  SINCE  THIS  IS  NOT  THE 

SURRAD 

491 

cc 

FIRST  CALL  FROM  THIS  ROUTINE  AND  THUS  WE  00  NOT  NEED  A 

SlWRAD 

49? 

cc 

RECOMPUTATION  OF  EPSD  AND  TXS. 

SURRAD 

49? 

ESURF1  «  .FALSE. 

Sl.WRAH 

494 

cc 

CALL  ESURF  WITH  SPCULR  SET  TO  .FALSE.  UNDER  THE  TENTATIVE 

SURRAD 

49S 

cc 

ASSUMPTION  THAT  Wt  WILL  NOT  NEEP  THE  SPECULAR  REFLECTION 

SURRAD 

496 

cc 

POINTS  FOR  FIREBALLS  (WHICH  CAN  BE  COMPUTED  IN  GLITTR  IF 

SWRAO 

497 

cc 

MSH=  2 ) .  IF  THERE  IS  INTEREST  IN  KNOWING  SUCH  REFLECTION 

SURRAD 

49B 

cc 

POINTS  WE  WILL  REED  TO  ESTABLISH  APPROPRIATE  PRESERVING 

SLRRAD 

499 

cc 

VARIABLES. 

SURRAD 

500 

SPCUIR  *  .FALSE. 

SURRAD 

501 

293 


CALL  ESLRRUTHI  .TIP,  PS!  ,HMH,l*SN,l>D ,  SPCLX-R.ZLA*1 , 1 DA* ,  IF  tRES,£S'JRrl , 

SUPRA? 

SO? 

$  SFR.EPSD.tkst 

SURRA? 

$0? 

R/Wtl*?'  »  SFR*CnR£*CflS!T^n 

SI*  RAD 

504 

c: 

WIN  HAVE  UNATTEN'JA’EO  REFLECTED  RADIANCE ,  RAD( L*?j ,  AT 

SURRAD 

505 

cc 

POINT  P  OL'E  Tj  E1REBAU-L.  NEED  PA>  RMAKETERS. 

SURRAD 

505 

Iff  l'JR  ,6t.  1  )  SO  TO  60 

SURRAD 

$0? 

CALL  CEOXV:  -3ALTU),EB>  ATfL'',FBL0ia'.RF!l!,RF;2!,OF(3:) 

SURRAD 

50.- 

CALL  VEIN' HE , L .OE+OS.RF ,0.0. 0.0' 

SURRA? 

*^0Q 

NC  -  0 

SURRAD 

510 

call  steps;  rp.re.kc.ds.xfracs.inc*  ) 

SURRAD 

51 1 

cc 

NOW  HAVE  NC.OS.XFRACS,  AND  jNDX. 

51.*  RAC 

cn 

J  4  *■ 

first  *  .true. 

SURRAD 

513 

60  CONTINUE 

SURRAD 

514 

TAFP(L)  ■>  1.0 

SURRAD 

515 

Ll  *  l»OT(r,  i  L?  *  !NDX(2) 

SURRAD 

516 

MSP  *  XFRACSII)  *  HSHE'L'lll  ♦  (l.-XFRACSf  1)1  *  H5HELLIL?) 

SURRAD 

517 

CALL  AEROSOl  (  HSP.ZLAn.XKSCT.XKASS.ESAR  ) 

SURRAD 

s:  - 

XXEXTP  *  XNSCT  ♦  XKA3S 

SjRRAD 

51 Q 

00  70  J*1.NC 

SURRAD 

5?0 

!F(  0S( J*1).LT.0.U  )  SO  T'„  70 

SUR°AD 

52! 

IF (  LUP  .EQ.  1  1  CALL  FATH(  FIRST, IND*( JJ.OSf J*U,XFRACS?.J!  ' 

SURRAD 

5?? 

LI  -  INOX (  J  )  I  L?  *  INDXOn 

SURRAD 

523 

HSO  *  XFRACSOl)  *  HSHCLLI  L?1  <  (1 . -XFRACSf J+1U  •  HSHELULH 

SURRAD 

5?4 

CALL  AEROSOL  {  HSQ.ZLAH.TKSCT.WAPS.GBAR  ) 

SURRAD 

5?5 

XNEXTQ  *  XKSCT  +  XKASS 

Si*  pad 

5?6 

XKEXT  «  ACCUK  2.0. ,0$(  0*1 )  ,XKEXTP,XKEXT0»O.  ,0S:  J+l  '■  !  /  0S;  >1' 

SURRAD 

5? 7 

TVP(L)  *  TAFP(L)  *  EXP(  -XKEXT*OS( J«ll  ' 

SURRAD 

5?S 

XKEXTP  -  XKEXTQ 

SURRA? 

629 

70  CONTINUE 

SURRAD 

530 

cc 

NOW  HAVE  FATH  PARAMETERS  y  AND  UP  FOR.  F1REBALL-L  RAT  TO 

SURRAD 

531 

cc 

POINT  P. 

SLIPOAD 

53? 

cc 

ALSO  HAVE  AEROSOL  TRANSMITTANCE.  TAFHfL',  f0R  FIREBALL-L 

SURRA? 

531 

cc 

RAf  FROM  RF  TO  RP. 

S'JRRAD 

5  34 

IF (  LU°  .ST.  11  GO  TO  99 

SU®  R  A? 

K 

cc 

REDEFINE  VARIABLES. 

S'JRRAD 

536 

DO  80  N=1 .NSPECS 

S'JRRAD 

c  37 

DO  30  I-l.NTEMP 

SU°5AD 

63? 

U  PS(I.N.L»lj  ■  U  <I,N.?i 

SLA  RAC 

539 

UPPE( t,N.L*l)  *  UPfl.N.?' 

SURRAD 

54? 

80  CONTINUE 

SURRAD 

541 

99  CONTINUE 

SLf»R#D 

s;*  ? 

return 

S'*:  AD 

64  ? 

END 

S'RRAT 

54J 

20- 


SueROUTfNF  TANGEO(HAl.GCl,GU,XE21,y»i21,Z¥21>HA2,GC2>GL2) 

TANGEO 

7 

ccc 

TANGED 

3 

c 

SU8R0UTINE  7A.NGfO  !A  MTDintD  HARC  ROUTINE  CALLED  XYCGEOl, 

TANt-~0 

4 

c 

GIVCR  the  GEOGRAPHIC  COORDINATES  UF  POINT  1  AND  THf  rv*GENT- 

TANGEO 

5 

c 

PLANE  COOROINITES  OF  POINT  2  WITH  RESPECT  TO  POINT  1,  PROVIDES 

TANGEO 

6 

c 

THE  GEOGRAPHIC  COORDINATES  OP  POINT  2. 

TANGEO 

7 

ccc 

TANGEO 

8 

r 

INPUTS  FRO«  CALL  STATEXtNT 

TANGEO 

Q 

c 

HA1  *  ALTITUDE  OF  PO!"’  I,  CN 

TANGEO 

10 

c 

GC1  *  COLATITUOE  Of  POINT  lt  RADIANS 

TANGEO 

11 

c 

GLS  -  EAST  LONGITUDE  Of  POINT  1,  RADIANS 

TANGEO 

1? 

c 

XE21  *  X  COORDINATE  OP  POINT  2  RELATIVE  TO  POINT  1,  C* 

TANGEO 

13 

c 

YN21  *  T  COORDINATE  OP  POINT  ?  RELATIVE  10  POINT  1,  C* 

TANGEO 

14 

c 

ZV21  *  i  COORDINA'E  OF  POINT  2  RELATIVE  TO  POINT  1,  C* 

TANGEO 

15 

c 

OUTPUTS 

TANGEO 

IP 

c 

NA2  *  ALTITUDE  OP  POINT  2,  CH 

TANGEO 

17 

c 

SC?  -  COLATITUDE  OF  POINT  2,  RADIANS 

TANGEO 

18 

c 

GL2  *  EAST  LONGITUDE  OF  POINT  2,  RADIANS 

TANGEO 

19 

ccc 

TANGEO 

20 

c 

RESTRICTIONS... 

TANGEO 

21 

c 

POINTS  1  AND/OR  2  *AY  NOT  LIE  ON  NORTH-SOUTH  POLAR  AXIS 

TANGEO 

22 

ccc 

TANGEO 

23 

DATA  PI. RE  /  3.I415926$3590,6.37103E+06  / 

TANGEO 

24 

ccc 

TANGEO 

25 

GR2Z  ■  REH4A1-»ZV21 

TANGEO 

26 

G»2  «  SQRT'XE21**2  ♦  VN21**2  ♦  &2l~?) 

TANGEO 

27 

HA2  -  GR2-RE 

TANGEO 

28 

COSGCl  -  COS(GCl) 

TANGEO 

29 

SIN  SC  1  *  SI  N  C  GC 1 1 

TANGEO 

30 

C0SGC2  -  (Sft2Z*COSGCI  ♦  YN21' ilNGtll/GRP 

TANGEO 

3! 

SINGC2  -  S0RT(l.O-COSGC2«2) 

TANGEO 

3? 

SINSLO  *  XE?1/(GR”SINGC2) 

TANGEP 

s': 

COSGLD  -  IGR2Z/GR2  -  COSGC1*CO$GC2V!S1NGC1*S!NGC2) 

TANGEO 

34 

GC2  -  ATAN?(  SINGC2.COSGC2  ) 

TANGEO 

35 

6L0  *  ATAN2(  S1NGLD.C0SGLD  ) 

TANGEO 

3f 

GLt  *  GLl+GLD 

TANGEO 

37 

RETURN 

TANGE"' 

3S 

END 

TANGEO 

39 
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SUBROUTINE  PANS(  NTEMP,  M,  u>  i/p,  FK,  WD1. .  WC)H,  TAD,  ABC,  PBl ,  PANS  ? 

I  FAST,  FIlPOS  )  PANS  3 


c 

TRANS 

4 

CL  J 

TRANS 

5 

CLJ 

INPUT  PARAMETERS 

TRANS 

6 

CLO 

ARGUMENT  LIST 

TRANS 

7 

CLJ 

NTEMP 

« 

NLWBER  OF  TEMPERATURES  IN  ATWOSPMER If 

TRANS 

c 

Cl  J 

PANSW[TTANC£  MODEL  (10.  SET  IN  CALL  FROM  EITHER 

TRANS 

9 

CLJ 

AT»4!A0  OR  PNSCO! 

TRANS 

ID 

CLJ 

K 

a 

INDEX  fOR  NODE  OF  PANSHITTANCE  CALCULATION. 

TRANS 

I  i 

CLJ 

COL'LO  BE  1.2 . 15  .  WITHIN  THE  NATURAL 

TRANS 

12 

CLJ 

BACKGROUND  RADIATION  MODULE  (WHERE  TRANS  IS  CALLED 

TRANS 

13 

CLJ 

FROM  ATT* AD,  TRNSCO,  AND  UPWELL1,  N  IS  ALWAYS  1. 

TRANS 

14 

CLJ 

(IN  CALLS  FROM  PROGRAM  EM  I  SC  AT ,  N  IS  I.  2,  AND  IS 

TRANS 

15 

CLJ 

ALLOWED  VALUES  UP  TO  15.1 

TRANS 

16 

CLJ 

IN  SUBROUTINE  TRANS,  «-l  UNITS  USE  Of  THE  U  AND 

TRANS 

U 

CLJ 

UP  ARRA»S  TO  THFIR  FIRST  HALVES.  TVIIS  IS 

TRANS 

18 

CLJ 

CONSISTENT  WITH  THE  FACT  THAT  WITHIN  THE  NBP 

TRANS 

19 

CLJ 

NODULE.  SUBROUTINE  TRANS  IS  ALWAYS  CAL!  ED  WITH  m 

TRANS 

?C 

CLJ 

SET  TO  1,  U  SET  TO  U(1,I,21,  AND  UP  SET  TO 

TRANS 

21 

CLJ 

UP (1,1,2).  THIS  IS  ALSO  TRUE  FOR  CALLS  WITH  N,; 

TRANS 

2? 

CLJ 

FROM  ENISCAT.  BUT  THERE,  WHEN  N.fiE.2,  THE  CALLS 

TRANS 

23 

CLJ 

ARE  WITH  U  A.'D  up,  I.  £..  THE  ENTIRE  ARRAYS. 

TRANS 

24 

CLJ 

un.N.i) 

AREAL  DENSITY  FOR  TEMPERATURE  I  AND 

TRANS 

25 

CLJ 

SPECIES  N,  C*  AT  STP  (1*1. NTEMP  ,  N-1,NS»EC) 

TRANS 

RK 

CLJ 

UPfl.N.l) 

PATH  PARAMETER  Up  (PRODUCT  OF  U  M.0  PRESSURE  FOR 

TRANS 

V 

CLJ 

TEMPERATURE  I  and  species  N,  ATM-CM  at  st» 

TRANS 

23 

Cl  J 

(1-1, NTEMP  ,  N  =  1,NSP£C) 

TRANS 

29 

CLJ 

FK'M) 

TRANS 

30 

CLJ 

(FK(N\  IS  USED  only  IF  M.GE.3  .  CURRENTLY,  «*  IS 

TRANS 

37 

CLJ 

SET  TO  1  In  CAaS  TO  TRANS  FRO*  TRNSCO  AND  ATOAO1 

TRANS 

17 

CLJ 

WDL 

LOWEST  WAVENUMBER  IN  DETECTOR  INTERVAL  BEING 

TRANS 

33 

CLJ 

USED,  1/CM 

TRANS 

34 

CLJ 

WDH 

HIGHEST  WAVEHU*6ER  IN  DETECTOR  INTERVAL  BEING 

TRANS 

it 

CLJ 

USED,  1/CM 

PANS 

38 

CLJ 

FAST 

LOGICAL  VARIABLE  DETERMINING  COMPLEXITY  Of 

PANS 

37 

CLJ 

TRANSMISSION  CALC'JLAT'ON.  IN  CALLS  TO  SUBROUTINE 

PANS 

3? 

CLJ 

TRANS  (FROM  SUBROUTINES  ATOAD.  PNSCO.  AND  UPVEIL 

TRANS 

39 

CLJ 

WITHIN  THE  NBR  MODULE  AND  FROM  PROGRAM  EMI  SCAT 

PANS 

40 

CLJ 

OUTSIOE  THE  NBR  MODULE),  FAST  IS  SET  TO  PN90PT , 

PANS 

41 

CLJ 

-.TRUE.,  TRANSMITTANCE  IS  BASED  ON  SINGLE-LEVEL 

PANS 

4? 

CLJ 

GROUPS  AND  STATI  ST  [CAL  BANDS.  BAND-*TDEL 

TRANS 

43 

CLJ 

PWA“ETERS  CO"Pl'TED  BY  SUBROUTINE  PWS5 

PANS 

44 

CLJ 

FOR  PNSOPT-.PUC.  ARE  HATCHED  TO  USER'S 

PANS 

45 

CLJ 

SPECTRAL  INTERVAL. 

PANS 

46 

CLJ 

-.FALSE..  TRANSMITTANCE  IS  BASED  ON  MJUIPLE-LEVEL 

PANS 

4’ 

CLJ 

GROL’°S  AND  RANDOM  El  SASSER  BANDS.  BANE- 

PANS 

48 

CLJ 

MODR  PARAMETERS  COMPUTED  By  SUBROUTINE 

PAN5 

49 

CLJ 

TRANSB  FOR  TRNSORTs. false.  ARE  fop  A 

PANS 

50 

CLJ 

HIGHER  RESOLU’ION  THAN  THE  USER'S  SPECTRA 

PANS 

El 

CLJ 

INTERVAL,  A  FACT  TAKEN  INTO  ACCOUNT  IN 

PANS 

93 

CLJ 

COMPUTING  THE  TRANSMITTANCE. 

PANS 

Cl 

CLJ 

FILPCS 

• 

FILE  POSITION.  SET  TO  1 .  E*04  IN  CALLS  FRO“ 

PANS 

54 

CCJ 

SUBROUTINES  TRNSCO  »D  ATMRAD. 

PASS 

CF 

CLJ 

XT  C0*40N 

PANS 

56 

CLJ 

TTfU 

* 

TEMPERATURE  ARRAy  IN  ATMQS°HER  iC  PANS-'SSION 

PANS 

C’ 

CLJ 

MODEL,  SET  AS  DATA  IN  THE  DRIVER  PROGPA**. 

PANS 

5« 

2^e 


CLJ 

XYZCOM  COfttON 

TRANS 

59 

CL  J 

LTMTE  *  BINARY  FILE  CONTAINING  TOE  BAND-WDEL  PARAMETER 5 

TRANS 

60 

CLJ 

WHICH  WERE  DERIVED  IN  SUBROUTINE  TRANS8  FROM  TOE 

TRANS 

61 

CLJ 

BASIC  5-(  1/CM) -RESOLUTIO!  DATA. 

TRANS 

62 

CLJ 

ltwte  is  IDENTICAL  TO  tapot,  TOE  FILE  WRITTEN 

TRANS 

63 

CLJ 

BY  TRAN  SB.  (SEE  TRANSB.) 

TRANS 

64 

CLJ 

TRANS 

65 

CLJ 

FOP.  EACH  READ  OF  TOE  LTOTE  FILE,  TOE  202  WOP.DS 

TRANS 

66 

CLJ 

ARE  STORED  AS... 

TRANS 

67 

CLJ 

WTl,  *  LOWER  AND  HIGHER  WAVENUMBERS  OF  INTERVAL,  CM-1 

TRANS 

68 

CLJ 

WTO 

TRANS 

69 

CLJ 

FOR  1*1,10  ,  15*1,10 

TRANS 

70 

CLJ 

SOD (I  .IS)  *  MEAN  A8 SORPTION  COEFFICIENT  FOR  SPEC1ES-IS  AT 

TRANS 

71 

CLJ 

TEMPERATURE-  INDEX  - 1  FOR  TOE  WAVENUMBER  INTERVAL, 

TRANS 

72 

:lj 

1/CM  AT  CTP 

TRANS 

73 

CLJ 

DEI(t.IS)  *  INVEP.  CF  MEAN  LINE-SPACING  PARAMETER,  OP  TOE 

TRANS 

74 

CLJ 

EFFECTIVE  LINE  DENSITY,  L IKES/ f 1 /CM) 

TRANS 

75 

CLJ 

TRANS 

76 

CLJ 

NSPEC  *  NMOLS,  TOE  NUMBER  OF  SPECIES.  SET  IN  DRIVER. 

TRANS 

77 

CLJ 

OUTPUT  PARAMETERS 

TRANS 

78 

CLJ 

ARGUMENT  LIST 

TRANS 

79 

CLJ 

TAU(N.H)  *  TRANSMITTANCE  FOR  SPECIES  N 

TRANS 

80 

CLJ 

(N-l, NSPEC  ,  M*l,15)  (BUT  H*1  FOR  NBR  MODULE) 

TRANS 

81 

CLJ 

ABC(N,M)  •  OPTICAL  DEPTH  FOR  SPECIES  N,  DIMENSIONLESS 

TRANS 

82 

CLJ 

(N*l, NSPEC  ,  M-1.1S)  (BUT  M-l  FOR  NBR  MODULE) 

TRANS 

83 

CLJ 

TTBL(M)  *  MOLECULAR  TRANSMITTANCE  FOR  MODE  M 

TRANS 

84 

DIMENSION  U(NTEMT  ,10,?  ),  UP(NTEMP,10.2),  FY.(M) ,  NSRAY(IO), 

TRANS 

85 

1  GHAT (13,5),  F(13.10),  6(13,10),  THETA(IO),  CF(13,10.10), 

TRANS 

86 

2  CG( 13 ,10 ,10) ,  TAU(IO.M),  XMV(IC),  SOD(IO.IO).  DEI (10.10), 

TRANS 

87 

3  ALS(IO),  ABC(IO.M),  TTBL(H) 

TRANS 

88 

C 

TRANS 

89 

COMMON  /  XY  /  TT(10) 

TRANS 

90 

COMMON  /  XYZCOM  /  ITMTE ,  LTMTE,  XXX(1454),  NSPEC,  FACT 

TRANS 

01 

C 

COMMON  /  CONCON  /  PI,  RBODY . 

TRANS 

9? 

C 

TRANS 

93 

LOGICAL  TABLIN,  FAST 

TRANS 

94 

c 

TRANS 

95 

DATA  SOD  /  100  u  0.  /,  DEI  /  100  *  0.  / 

TRANS 

96 

DATA  N5RAY  /  A,  3.  1Z.  10.  10.  11,  4,  0,  5,  Z  / 

TRANS 

97 

DATA  GHAT  /  1  ,  6. ,  10.,  14.,  19.,  Z5.,  33.,  4Z..  S3., 

TRANS 

98 

1  66.,  80.,  1..  1.,  3.,  3.,  6.,  7.,  10..  1Z..  14.,  17.,  19.. 

TRANS 

99 

Z  0..  0.,  1.,  3.,  6.,  7..  10.,  15.,  17.,  Zl..  28. ,  30..  0., 

TRANS 

100 

3  0.,  1.,  2.,  4.,  6..  10.,  14.,  ?0.,  27 , ,  36.,  46..  58.,  7?.. 

TRANS 

101 

4  0.,  1..  1..  3..  3.,  3.,  6.,  7*0./ 

TRANS 

102 

DATA  THETA  /  2740.,  34Z0,,  850.,  108C.,  1015.,  960.,  3123.,  0-. 

TRANS 

103 

1  2300. ,  5350.  ! 

TRANS 

104 

DATA  ALS  /  .'34,  .04.  .06,  .10,  .11,  .07,  .06,  .06,  .04,  .06  / 

TRANS 

105 

DATA  A1  /  0-3480242  /,  A?  /  -.0958798  /,  A3  /  0.7478556  / 

TRANS 

106 

DATA  P  /  0.47047  / 

TRANS 

107 

DATA  XMW  /  30..  30.,  44.,  46.,  48.,  44.,  2B.,  16..  18.,  17.  / 

DATA  TABLIN  /  .FALSE.  /,  WIP  /  0.  /,  WHP  /  0.  / 

TRANS 

108 

TRANS 

109 

OATA  PI  /  3  14159265  / 

TRANS 

no 

C 

TRANS 

m 

CLJ 

ENTRY  TRANS1  IS  PROVIDED  BY  SAI  (12729/78)  TO  AVOID  CONFLICT 

TRANS 

li? 

CLJ 

IN  SUBROUTINE  UPWELL  BETWEEN  TOE  ARRAY  TRANS  IN  COFWON  CIDWT 

TRANS 

113 

CLJ 

AND  TOE  CALL  TO  SUBROUTINE  TRANS. 

TRANS 

114 

ENTRY  TRAN51 

TRANS 

115 

?97 


M10  •  N  *  10 

C 

00  31  I  -  1.  Hio 
ABC( 1,1)  *  0. 

TAU(l.l)  *  0. 

31  CONTINUE 
C 

IF  (  TABLIN  .OR.  FAST  )  GO  TO  27 

C  INITAILIZATIONS 

C 

C  LOOP  OVER  SPECIES 

C 

DO  1  IS  -  1.  NSPEC 
NS  *  NSRAY(IS)  ♦  1 
C 

C  LOOP  OVER  ENERGY  BINS 

C 

DO  2  J  *  1,  NS 
F(J,IS)  *  1. 

GO  TO  l  3.  3,  4,  4,  4.  4.  3,  4,  4,  3  ).  IS 

C 

3  F(J.IS)  *  J 

4  GO  TO  (  5,  6,  7,  8.  8,  10,  6,  11.  12,  5  },  IS 
C 

5  G( J.IS)  •  2. 

GO  TO  2 

C 

6  G(J.IS)  -  1. 

GO  TO  2 

C 

7  G(J,IS)  -  GHAT(J.l) 

GO  TO  2 

c 

8  Gf  J,  IS)  -  GH AT ( J , 2 )  *  100. 

GO  TO  2 

C 

9  G{ J.IS)  •  GHAT(0,3)  *  100. 

GO  TO  2 

C 

10  GfO.IS)  *  GHAT(J,4) 

GO  TO  2 

C 

11  G(J.IS)  -  100. 

GO  TO  2 

C 

12  G(J.IS)  -  GHAT(J,5)  *  100, 

2  CONTINUE 

C 

1  CONTINUE 
C 

C  LOOP  OVER  TEMPERATURES 

C 

DO  13  I  ■  1,  NTEMP 

r 

C  LOuP  OVER  SPECIES 


TRANS 

116 

TRANS 

117 

TRANS 

118 

TRANS 

119 

TRANS 

120 

TRANS 

121 

TRANS 

122 

TRANS 

123 

TRANS 

124 

TRANS 

125 

TRANS 

126 

TRANS 

127 

TRANS 

128 

TRANS 

129 

TRANS 

130 

TRANS 

131 

TRANS 

132 

TRANS 

133 

TRANS 

134 

TRANS 

135 

TRANS 

136 

TRANS 

137 

TRANS 

138 

TRANS 

139 

TRANS 

140 

TRANS 

141 

TRANS 

142 

TRANS 

143 

TRANS 

144 

TRANS 

145 

TRANS 

146 

TRANS 

147 

TRANS 

148 

TRANS 

149 

TRANS 

ISO 

TRANS 

151 

TRANS 

152 

TRANS 

153 

TRANS 

154 

TRANS 

155 

TRANS 

156 

TRANS 

157 

TRANS 

1 53 

TRANS 

159 

TRANS 

160 

TRANS 

161 

TRANS 

162 

TRANS 

163 

TRANS 

164 

TRANS 

165 

TRANS 

166 

TRANS 

167 

TRANS 

168 

TRANS 

169 

TRANS 

170 

TRANS 

171 

TRANS 

172 

2<W 


C  TRANS 

DO  14  IS  -  1.  NSPEC  TRANS 

C  TRANS 

NS  *  NSRAY(IS)  +  1  TRANS 

F SUM  -  0.  TRANS 

C  TRANS 

C  LOOP  OVER  ENERGY  BINS  TRANS 

C  TRANS 

DO  15  J  -  1.  NS  TRANS 

FJ  *  J  -  1  TRANS 

F  SUN  -  FSUM  ♦  F(J.IS)  *  G(J.1S)  *  EXP(  -THETA(  IS)  *  FJ  /  TT(I)  )  TRANS 

15  CONTINUE  TRANS 

C  TRANS 

FI  SUM  «  0.  TRANS 

C  TRANS 

C  LOOP  OVER  ENERGY  BINS  TRANS 

C  TRANS 

00  16  0  *  1,  NS  TRANS 

CF(  J, I S,I )  -  1.  TRANS 

FJ  *  J  -  1  TRANS 

CF(J.IS.I)  *  F(J,!S)  *  G(J.IS)  *  EXP(  —  TH ETA i IS)  *  FJ  /  TT(I)  )  TRANS 

J  !  FSUM  TRANS 

FI  SUM  -  FISUM  +  SORT(  CF(J.1S,1)  *  G(J,IS)  )  TRANS 

16  CONTINUE  TRANS 

C  TRANS 

C  LOOP  OVER  ENERGY  BINS  TRANS 

C  TRANS 

00  17  J  •  1.  NS  TRANS 

CG(  J.IS.T )  -  1.  TRANS 

FJ  *  J  -  1  TRANS 

CG(J.IS.I)  «  GfJ.IST  /  FISUM  **?  TRANS 

17  CONTINUE  TRANS 

C  TRANS 

14  CONTINUE  TRANS 

C  TRANS 

13  CONTINUE  TRANS 

C  TRANS 

TABLIN  -  .TRUE.  TRANS 

C  TRANS 

77  IF  (  FAST  .AND.  (  WDL  .NE.  WIP  .OR.  WDH  .NE.  WHP  )  )  GO  TD  73  TRANS 

IF  (  FILPOS  .LE.  WDL  )  GO  TO  74  TRANS 

C  TRANS 

REWIND  LTMTE  TRANS 

WTL  -  0.  TRANS 

WTH  •  0.  TRANS 

GO  TO  74  TRANS 

C  TRANS 

C  READ  SPECTRAL  DATA  FILE  TRANS 

C  TRANS 

73  READ  (LTMTE)  WTl,  WTH,  (  (  SOD(I,IS),  I  ■  1.  NTEMP  ),  TRANS 

J  (  DEIO.IS),  I  *  1,  NTEMP  ),  IS  *  1.  NSPEC  )  TRANS 

FILPOS  «  WTL  TRANS 

WHP  «  WDH  TRANS 

WLP  •  WDL  TRANS 

C  TRANS 

74  OLAP  «  FRAC(  WDL,  WDh,  WTL,  WTH  )  TRANS 

IF  (  WTL  .GE.  WDH  )  RETURN  TRANS 


173 

174 

175 

176 

177 

178 
175 
180 
181 
18? 

183 

184 

185 

186 

187 

188 

189 

190 

191 
19? 

193 

194 

195 

196 

197 

198 

199 

700 

701 
70? 

703 

704 

705 

706 

707 

708 

709 

710 

711 
71? 

713 

714 

715 

716 

717 

718 

719 

770 

771 
27? 
273 

774 

775 

776 

777 
278 
779 


IF  (  OLAP  .LE.  0.  )  GO  TO  23 

TRANS 

230 

c 

TRANS 

231 

U  -  (  WTL  +  WTH  )  /  2. 

TRANS 

232 

c 

TRANS 

233 

c 

LOOP  OVER  PATH  SEGMENTS 

TRANS 

23A 

c 

TRANS 

235 

CLJ 

IN  NBR  MODULE  USAGE,  M  IS  SET  TO  1  IN  CALLS  TO  SUBROUTINE 

TRANS 

236 

CLJ 

TRANS,  BUT  IN  CALLS  TO  TRANS  FROM  PROGRAM  CMISCAT,  K  IS  SET  TO 

TRANS 

237 

CLJ 

1.  2,  AND  MAT  BE  UP  TO  15. 

TRANS 

238 

DO  22  K  *  1.  M 

TRANS 

239 

c 

TRANS 

240 

c 

LOOP  OVER  SPECIES 

TRANS 

241 

c 

TRANS 

242 

DO  IS  IS  -  1,  NSPEC 

TRANS 

243 

ADS  -  3.58E-7  *  W  *  SORT(  273.  /  XMW(IS)  ) 

TRANS 

244 

NS  -  NSRAY(IS)  +  1 

TRANS 

245 

IF  (  FAST  )  NS  -  1 

TRANS 

246 

XS  *  0. 

TRANS 

247 

c 

TRANS 

248 

c 

LOOP  OVER  ENERGY  BINS 

TRANS 

249 

c 

TRANS 

250 

CLJ 

NOTE  THAT  NS-1  FOR  FAST  ■  TRNSOPT  -  .TRUE.  . 

TRANS 

251 

DO  19  J  -  1,  NS 

TRANS 

252 

XML  -  0. 

TRANS 

253 

SUMC  -  0. 

TRANS 

254 

SUMO  -  0. 

TRANS 

255 

c 

TRANS 

256 

c 

LOOP  OVER  TEMPERATURES 

TRANS 

257 

c 

TRANS 

258 

c 

CALCULATE  OPTICAL  DEPTH  IN  WEAK-LINE  APPROXIMATION 

TRANS 

259 

c 

TRANS 

260 

OO  20  I  •  1,  NTEMP 

TRANS 

261 

IF  (  M  .GE.  3  )  GO  TO  29 

TRANS 

262 

CLJ 

SINCE  M*1  IN  NBR-MODULE  USAGE,  K  HAS  THE  SINGLE  VALUE  OF  1. 

TRANS 

263 

CLJ 

THUS,  WE  ARE  SETTING  U(I.lS.l)  ANO  UP(I,IS,1)  INTO  US  AND 

TRANS 

264 

CLJ 

UPS.  RESPECTIVELY. 

■iRANS 

265 

US  -  U(I,IS,K) 

TRANS 

266 

UPS  -  UP(l.IS.K) 

TRANS 

76/ 

GO  TO  30 

TRANS 

268 

C 

TRANS 

269 

CLJ 

THE  FOLLOWING  EXPRESSION  IS  USED  ONLY  IF  M.GE.3,  AS  MAY  OBTAIN 

TRANS 

270 

CLJ 

FOR  CALLS  TO  TRANS  FROM  PROGRAM  EMISCAT.  NBR-MODULE  USAGE  HAS  TRAN 5 

77] 

CLJ 

M-l,  SO  U(I,IS,2)  AND  UP{I,I5,2)  ARE  NOT  USED  IN  SUBROUTINE 

TRANS 

272 

CLJ 

TRANS,  NOR  IS  THE  ARRAY  FK,  FOR  THE  NBR  MODULE. 

TRANS 

273 

29 

US  ■  (  1.  -  FK(K)  )  *  U(I,IS,1)  ♦  FK(K)  *  U(I,IS,2) 

TRANS 

274 

UPS  *  (  1.  -  FK(K)  )  *  UP(I,IS,1)  +  FK(K)  *  UP(I,IS,2) 

TRANS 

275 

C 

TRANS 

276 

30 

IF  (  US  .EQ.  0.  )  SO  TO  20 

TRANS 

277 

IF  (  FAST  )  GO  TO  36 

TRANS 

778 

SOOI  -  CF(J,IS,I)  *  SOO(I,IS) 

TRANS 

279 

DEII  *  CS{J,IS,1)  *  DEI ( I , IS) 

TRANS 

280 

GO  TO  32 

TRANS 

281 

C 

TRANS 

282 

36 

50DI  ■  SOD ( I , I S) 

TRANS  - 

283 

DEII  ■  DEI (I , IS) 

TRANS 

284 

C 

TRANS 

285 

32 

XWl  ■  XWL  ♦  SODI  •  US 

TRANS 

286 

300 


SUM C  *  SUMC  +  SQRT (  273.  /  TT'I'i  )  *  DEII  *  SOOI  *  UPS 

TRANS 

287 

SUMO  -  SUMO  +  SORT)  TT(I)  /  273.  )  *  DEI  1  *  SODI  *  US 

TRANS 

288 

20  CONTINUE 

TRANS 

289 

c 

TRANS 

290 

IF  (  I  ML  .LE.  1. E-100  )  GO  TO  34 

TRANS 

291 

r 

TRANS 

292 

c 

CALCULATE  OPTICAL  DEPTH  IN  AN  APPROXIMATE 

TRANS 

293 

c 

RANDOM  aSASSER  HOOa 

TRANS 

294 

c 

TRANS 

295 

ACSJ  *  ALS(IS)  /  XML  *  SUMC 

TRANS 

296 

AO  SO  ■  AOS  /  XML  *  SUMO 

TRANS 

297 

IF  (  FAST  )  GO  TO  25 

TRANS 

298 

U2  *  PI  *  XHL  **2  /  (  *.  *  G( J, IS)  **2  *  {  1.  +  XML  / 

TRANS 

299 

S  (  4.  *  ACSO  )  )  ) 

TRANS 

300 

U  •  1.  /  (  1.  ♦  P  *  SQRT(  U2  )  ) 

TRANS 

301 

XRE  *  -C'(J.IS)  *  (  ALOG(  A1  *  TL  +  A2  *  U  **2  +  A3  *  Tl  «3  )  - 

TRANS 

302 

$  U2  ) 

TRANS 

303 

c 

TRANS 

304 

c 

CALCULATE  OPTICAL  DEPTH  FOR  LORENTZ  LINES 

TRANS 

305 

c 

TRANS 

306 

XL  -  AHINM  XRE,  XHL  ) 

TRANS 

307 

GO  TO  33 

TRANS 

308 

c 

TRANS 

309 

25  XL  -  XHL  /  SORT(  1.  ♦  XHL  /  (  4.  *  ACSO  )  ) 

TRANS 

310 

c 

TRANS 

31! 

c 

CALCULATE  OPTICAL  DEPTH  FOR  DOPLER  LINES 

TRANS 

312 

c 

TRANS 

313 

33  XD  -  1.7  *  AOSU  *  SQRT(  ALOG(  1.  +  (  XHL  /  (  1.7  «  ADSO  )  )  **2 

))  TRANS 

314 

A  *  (  1.  -  {  XL  /  XHL  )  **2  )  —2 

TRANS 

315 

B  *  (  1.  -  {  XD  /  XHL  )  **2  )  **2 

TRANS 

316 

IF  (  A  +  B  .LE.  1  .£-15  )  GO  TO  21 

TRANS 

317 

Y  -  SQRT(  A*B/(B  +  A-  A*8)) 

TRANS 

318 

c 

TRANS 

319 

c 

CALCULATE  OPTICAL  DEPTH  OF  SPECIES 

TRANS 

320 

c 

TRANS 

321 

XS  -  XS  ♦  XHL  *  SORT (  1.  -  Y  ) 

TRANS 

322 

GO  TO  19 

TRANS 

323 

c 

TRANS 

324 

21  XS  -  XS  +  XHL 

TRANS 

325 

CLJ 

STATEMENT  19  IS  FOR  THE  ENERGY-BIN  LOOP  ON  INDEX  J.  FCR 

TRANS 

326 

CLJ 

FAST  -  .TRUE.,  THIS  LOOP  IS  DONE  ONLY  ONCE. 

TRANS 

327 

19  CONTINUE 

TRANS 

328 

c 

TRANS 

329 

c 

TRANS 

330 

c 

CALCULATE  TRANSMITTANCE  OF  SPECIES 

TRANS 

331 

c 

TRANS 

332 

ABC(IS.K)  •  ABC(IS,K)  ♦  XS  •  OLAP 

TRANS 

333 

TAU(IS.K)  ■  TAU(IS.K)  ♦  EXP(  -XS  )  *  OLAP 

TRANS 

334 

GO  TO  18 

TRANS 

335 

34  TAUdS.K)  -  TAU(IS,lO  ♦  OLAP 

TRANS 

336 

CLJ 

1  STATEMENT  18  IS  FOR  THE  SPECIES  LOOP  ON  INDEX  IS. 

TRANS 

337 

18  CONTINUE 

TRANS 

338 

c 

TRANS 

339 

CIO 

1  STATEMENT  22  IS  FOR  THE  SO-CALLED  PATH-SEGMENT  LOOP  ON  INDEX 

TRANS 

340 

CLJ 

1  K.  FOR  NBR -MODULE  USAGE,  X  EQUALS  ONLY  1, 

TRANS 

341 

22  CONTINUE 

TRANS 

342 

c 

TRANS 

343 

301 


IF  (  WTH  .LT.  .9999999  *  WOH  )  SO  TO  23 

TRANS 

344 

c 

TRANS 

345 

DO  35  K  «  1,  H 

TRANS 

346 

TT8L(K)  *  I. 

TRANS 

347 

DO  35  IS  *  1,  NSPEC 

TRANS 

348 

CLJ 

THE  FOLLOWING  TWO-LINE  CHANGE,  RECEIVED  IN  TWO  INSTALLMENTS 

TRANS 

349 

CLJ 

FROM  L.  EWING  ON  3/20/79  AND  A.  KLEIN  ON  9/10/79,  AFFECTS  THE 

TRANS 

350 

CLJ 

EMISSION  CALCULATION  IN  SUBROUTINE  ATNRAD. 

TRANS 

351 

IF (  (  TAU(IS.K)  .LT.  0.9999  )  .AND.  (  TAU(IS,K)  .6T.  0.0001  )  ) 

TRANS 

352 

ABC(IS.K)  *  -ALOG(  TAU(IS.K)  } 

TRANS 

353 

35 

TTBL(K)  «  TTBL(K)  *  TAU(IS.K) 

TRANS 

354 

C 

TRANS 

355 

RETVRN 

TRANS 

356 

END 

TRANE 

357 
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SUBROUTINE  TRANSB  (  LBAND  ) 

TRANSB 

? 

c 

TRANSB 

3 

c 

‘TRANSB*  eliminates  unnecessary  spectral  DATA  FROM 

TRANSB 

4 

c 

THE  EXTERNAL  FILE.  THE  TYPE  OF  SPECTRAL  COVERING  GENERATED 

TRANSB 

5 

c 

DEPENDS  OH  TRNSOPT.  IF  TRNSOPT  IS  .TRUE.  ,  THE  FASTEST 

TRANSB 

6 

c 

BUT  LEAST  ACCURATE  CALCULATIONS  WILL  BE  DONE. 

TRANSB 

7 

c 

TRANSB 

Q 

ClJ 

TRANSB 

9 

CLJ 

INPUT  PARAMETERS 

TRANSB 

10 

CLJ 

ARGUMENT  LIST 

TRANSB 

11 

CLJ 

IBAND  -  LIST  HEADER  VARIABLE  (LHV)  FOR  WAVELENGTH  BANDS 

TRANSB 

1? 

CLJ 

DATASET. BN  (NO.  114).  STRICTLY,  LBAND  IS  THE 

TRANSB 

13 

CLJ 

POINTER  (I.E..  IT  CONTAINS  THE  (0- ARRAY)  ADDRESS 

TRANSB 

14 

CLJ 

FOR  THE  LIST  HEADER  OF  THE  WAVELENGTH  BANDS 

TRANSE 

15 

CLJ 

DATASET- BN. 

TRANSB 

i6 

CLJ 

IN  GRC  USAGE,  LBAND  IS  S10RED  AS  WORD-1?  OF 

TRANSB 

17 

CLJ 

DATASFT-ST  (NO.  111). 

TRANSB 

IS 

CLJ 

IN  THE  SAI  STAND-ALONE  VERSION  OF  THE  NBR  MODULE, 

TRANSB 

19 

CLJ 

DATASET- ST  /NO.  Ill)  IS  NOT  USED,  BUT  LBAND  IS 

TRANSB 

?0 

CLJ 

STILL  GENERATED  IN  PROGRAM  DRVUPW  AND  USED  AS  THE 

TRANSB 

?i 

CLJ 

LHV  FOR  DATASET-BN. 

TRANSB 

n 

CLJ 

XV2C0M  COMMON 

TRANSB 

23 

CLJ 

ITMTE  =  AUXILIARY  INPUT  DATA  FILE  NUMBER,  (  =  2  IN  DRVUPW) 

TRANSB 

?4 

CLJ 

LTMTE  *  AUXILIARY  OUTPUT  DATA  FILE  NUMBER,  (=3  IN  DRVUPW) 

TRANSB 

25 

CLJ 

OPTION  COMMON 

TRANSB 

26 

CLJ 

TRNSOPT  -  LOGICAL  VARIABLE  AFFECTING  (A)  PROCEDURE  FOR 

TRANSB 

27 

CLJ 

CONVERTING  THE  BASIC  5-(l/CM)-RES0LUTI0N  BAND- 

TRANSB 

28 

CLJ 

MODEL  PARAMETERS  TO  THOSE  FOR  THE  USER-SPECIFIED 

TRANSB 

29 

CLJ 

RESOLUTION  AND  (B)  POSSIBLE  REDUNDANCY  OF  OUTPUT 

TRANSB 

30 

CLJ 

DATA  IF  USER -SELECTED  BANDS  OVERLAP  WITH  COMMON 

TRANSB 

31 

CLJ 

SPECTRAL  INTERVALS. 

TRANSB 

3? 

CLJ 

=  .TRUE. ,  TRANSB  PROVIDES... 

TRANSB 

33 

CLJ 

(A)  IN-BAND  (MORE  PRECISELY,  "IN- INTERVAL") 

TRANSB 

34 

CLJ 

AVERAGED  BAND-MODEL  PARAMETERS.  (THERE  IS  NO 

TRANSB 

35 

CLJ 

LIMIT  ON  the  ALLOWED  COARSENESS  of  the 

TRANSB 

3F 

CLJ 

resolution,  if  RESOLUTION  FINER  THAN  5-(l/CM)  is  TRANSB 

37 

CLJ 

REOUESTED,  THE  CODE  WILL  COMPUTE  ANSWERS,  BUT 

TRANSB 

38 

CLJ 

THEY  MAY  HAVE  LITTLE  OR  NO  PHYSICAL  REALITY.) 

TRANSB 

39 

CLJ 

(B)  BAND-MODEL  PARAMETERS  FOR  EACH  INTERVAL 

TRANSB 

40 

CLJ 

WITHIN  A  BAND  (EVEN  THOUGH  BANDS  MAY  OVERLAP), 

TRANSB 

4! 

CLJ 

AND  THE  BANDS  ARE  ORDERED  AS  IN  THE  WAVELENGTH 

TRANS? 

4? 

CLJ 

BANDS  DATASET-BN  (NO.  114). 

TRANSB 

43 

CLJ 

=  . FALSE..  TRANSB  PROVIDES... 

TR  AN  S3 

44 

ClJ 

(A)  BAND-MODEL  PARAMETERS  AT  A  (BELOW-DEFINFD) 

TRANSB 

45 

CLJ 

RESOLUTION  THAT  MAY  BE  FINER  THAN  THE  REQUESTED 

TRANSB 

46 

CLJ 

Sb£CTRAL  INTERVALS.  IN  DilS  CASE  THE  TRANSB- 

TRANSB 

47 

CLJ 

GENERATED  RESOLUTION  (OR  SUBINTERVALl  is  o.s  or 

TRANSB 

48 

CLJ 

THE  NARROWEST  USER -SPEC  IF]  ED  WAVENUMBER  INTERVAL, 

TRANSB 

49 

CLJ 

BUT  WITHIN  THE  RANGE  OF  5  TC  50  (1/CM).  THE 

TRANSB 

50 

CLJ 

LOWER  EDGE  OF  THE  FIRST  OUTPUT  INTERVAL  LIES  AT 

TRANSB 

51 

CLJ 

THE  lower  EDGE  OF  THE  LOWEST  WAVENUMBER  SPECTRAL 

TRANSB 

5? 

CLJ 

INTERVAL. 

TRANSB 

53 

ClJ 

(B)  non-pedunoant  information  for  intervals  in 

TRANSB 

54 

CLJ 

OVERLAPPING  BANDS,  f IF  BANDS  DON'T  OVERLA0, 

TRANSB 

56 

CLJ 

THERE  IS  NOTHING  TO  ELIMINATE,  OF  COURSE.) 

TR  AN  S3 

56 

CLJ 

NOTE.  FOR  ADDITIONAL  INFORMATION  REGARDING  USE 

TR  AN  rp 

57 

CLJ 

OF  THESE  BAND-MODEL  PARAMETERS,  SEE  COMMENTS 

TR  SB 

5P 

303 


CL  J 

UNDER  THE  LOGICAL  VARIABLE  FAST  IN  SUBROUTINE 

TRANSB 

59 

ClJ 

TRANS. 

TRANSB 

60 

CLJ 

"DATASET-BN" 

TRANSB 

61 

CLJ 

**  NOTE  * 

THE  SPELLING  (BN)  IS  AN  UNFORTUNATE  ARTIFACT  FROM 

TRANSB 

6? 

CLJ 

* 

THE  ORIGINAL  DEVELOPMENT  OF  THE  ROUTINE  BY  L. 

TRANSB 

63 

CLJ 

* 

EWING  OF  GET.  WE  ARE  REALLY  DEALING  WITH  WORDS-3, 

TRANSB 

64 

CLJ 

* 

-4.  AND  -6  Of  THE  GRC  DICTIONARY  DATASET-81  (NO. 

TRANSB 

65 

CLJ 

* 

115)  AND  NOT  DATASET-BN  (NO.  114). 

TRANSB 

66 

CLJ 

WLO  BN,  « 

LOWEST  AND  HIGHEST  WAVENUMBERS  OF  SPECTRAL 

TRANSB 

67 

CLJ 

whi  bn 

INTERVAL  OVER  WHICH  BAND-MODEL  PARAMETERS  ARE  TO 

TRANSB 

68 

CLJ 

BE  AVERAGED,  CH-1 

TRANSB 

69 

CLJ 

TFLAG  BN  ‘ 

FLAG  TO  DENOTE  WHETHER  THE  WAVELENGTH  OR 

TRANSB 

70 

CLJ 

WAVENUMBER  (CORRESPONDING  TO  THE  ARGUMENT  OF 

TRANSB 

71 

CLJ 

TFLAG  BN)  IS  ASSOCIATED  WITH  THE  FIRST, 

TRANS8 

7? 

CLJ 

INTERMEDIATE,  OR  LAST  SPECTRAL  DIVISION  IN  A  BAND 

TRANSB 

73 

CLJ 

OF  (ASCENDING)  WAVELENGTHS  OR  (ASCENDING) 

TRANSB 

74 

CLJ 

WAVENUM8ERS. 

TRANSB 

75 

CLJ 

* 

1.,  FIRST  SPECTRAL  DIVISION  (LOWEST  WAVELENGTH)  IN 

TRANSB 

76 

CLJ 

A  WAVELENGTH  BAND  OR  LAST  SPECTRAL  DIVISION 

TRANSB 

77 

CLJ 

(HIGHEST  WAVENUMBER)  IN  A  WAVENUMBER  BAND 

TRANSB 

78 

CLJ 

X 

D.,  INTERMEDIATE  SPECTRAL  DIVISION 

TRANSB 

79 

CLJ 

* 

2.,  LAST  SPECTRAL  DIVISION  (HIGHEST  WAVELENGTH)  IN 

TRANSB 

80 

CLJ 

A  WAVELENGTH  BAND  OR  FIRST  SPECTRAL  DIVISION 

TRANSB 

81 

CLJ 

(LOWEST  WAVENUMBER)  IN  A  WAVENUMBER  BAND 

TRANSB 

82 

CLJ 

INPUT  BINARY 

FILE 

TRANSB 

83 

CLJ 

TAPIN  - 

EQUIVALENCtO  TO  ITMTE.  CONTAINS  BAND-MODEL 

TRANSB 

84 

CLJ 

PARAMETERS  FOR  5-(CM-l )  RESOLUTION 

TRANSB 

85 

CLJ 

V5L  • 

LOWER  WAVENUMBER  OF  5-(CM-l)  INTERVAL  FOR  THE  SET 

TRANSB 

86 

CLJ 

1997.5(5.0)4997.5  CM-1 

TRANSB 

87 

CLJ 

NSW  - 

HIGHER  WAVENUMBER  OF  5-(CM-l)  INTERVAL  FOR  THE  SET 

TRANSB 

88 

CLJ 

2002.5(5.0)5002.5  CM-1 

TRANSB 

69 

CLJ 

FOR 

1=1,10  ,  IS=1.10  ... 

TRANSB 

90 

CLJ 

SOD(I.IS)  - 

MEAN  ABSORPTION  COEFFICIENT  FOR  SPECIES-IS  AT 

TRANSB 

91 

CLJ 

TEMPERATURE-INOEX-I  FOR  THE  5- (CM-1)  INTERVAL 

TRANSB 

92 

CLJ 

FROM  WSL  TO  WSH,  CM-1  AT  STP 

TRANSB 

93 

CLJ 

DEI (I, IS)  * 

INVERSE  OF  MEAN  LINE-SPACING  PARAMETER,  OR  THE 

TRANSB 

94 

CLJ 

EFFECTIVE  LIME  DENSITY,  LINES/(CM-1 ) . 

TRANSB 

95 

CLJ 

OUTPUT  PARAMETERS 

TRANSB 

96 

CLJ 

OUTPUT  BINARY  FILE 

TRANSB 

97 

CLJ 

TAPOT  * 

equivalenceo  to  ltmte.  CONTAINS  BANO-MBDEL 

TRANSB 

98 

CLJ 

PARAMETERS,  DERIVED  FROM  THE  5-(CM-l  )-RESOLUTION 

TRANSB 

99 

CLJ 

DATA,  FOR  THE  USER-SPECIFIED  INTERVAL  DW  EITHER 

TRANSB 

100 

CLJ 

(A)  COWUNICATED  THROUGH  THE  DATASET-B1  IF 

TRANSB 

101 

CLJ 

TRNSOPT  -  .TRUE.  OR  (B)  SET  BY  AN  ALGORITHM  IF 

TRANSB 

102 

CLJ 

TRNSOPT  -  .FALSE.  THE  ALGORITHM  IS  THAT  DW  EQUALS  TRANSB 

103 

CLJ 

ONE-HALF  OF  THE  MINIMUM  DW  COMMUNICATED  THROUGH 

TRANSB 

104 

CLJ 

THE  DATASET-BI ,  BUT  NOT  LESS  THAN  5.0  OR  MORE 

TRANSB 

105 

CLJ 

THAN  50.0  CM-1 

TRANSB 

106 

CLJ 

HL.  • 

LOWER  AND  HIGHER  WAVENUMBERS  OF 

TRANSB 

107 

CLJ 

WH 

INTERVAL  DW,  CM-1 

TRANSB 

108 

CLJ 

FOR 

I-1.10  ,  IS*1,10  ... 

TRANSB 

109 

CLJ 

S(I,1S)  * 

MEAN  ABSORPTION  COEFFICIENT  FOR  SPECIES-IS  AT 

TRANSB 

no 

CLJ 

TEMPERATURE-INOEX-I  FOR  THE  INTERVAL  DW. 

TRANSB 

111 

CLJ 

CM- I  AT  STP 

TRANSB 

112 

CLJ 

DE(I.IS)  - 

INVERSE  OF  MEAN  LINE-SPACING  PARAMETER,  OR  THE 

TRANSB 

113 

CLJ 

EFFECTIVE  LINE  DENSITY,  LlNES/(CM-l) 

TRANSB 

114 

CLJ 

TRANSB 

115 

304 


c 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 


c 

CLJ 


CLJ 

CLJ 

CLJ 

CLJ 


CLJ 

CLJ 


DIMENSION  500(10,10),  OEI(IO.IO),  S(10,10),  DE{10,10) 

DIMENSION  WLO  8N(1),  WH!  BN ( 1  > ,  TFLAG  BN(1) 

COWON  QNAREA,  QWAREA(IO),  QFREHO,  QNDTST,  QHINKS,  QZSIZE, 

1  QNZBLK,  QZHEAD,  QC0UNT(30).  00SI2£(10),  QNSIZE,  QUJNIT(IO), 

2  QERLUN,  QFBITS(2,10),  0(1) 

EQUIVALENCE  (  Q,  IQ  ) 

DIMENSION  10(1  > 

COMMON  /  XYZCOM  /  ITMTE,  LTMTE.  NS,  HSHELL(81),  TS(81),  PS(81), 

1  XNSP£C{81,10).  Un0,10,2),  UP;iO,lD,2),  WOLS, 

2  FACT 
COWON  /  OPTION  /  TRNSOPT 

**  NOTE  *  WE  WREE  WORDS  WLO  BN,  WHI  BN,  AND  TFLAG  BN  ARE 
IN  REALITY  WORDS- 3,  -4,  AND  -6  IN  THE  GRC 
DICTIONARY  DATASET-B!  (NO.  115).  THEIR  SPELLING 
HERE  IS  AN  ARTIFACT  OF  THE  ORIGINAL  PREPARATION  OF 
WE  ROUTINE  BY  L.  EW'NG  OF  6ET. 

EQUIVALENCE  (  Q(3),  WLO  BN  ).  (  0(4),  WHI  BN  ), 

*  (  0(6),  TFLAG  BN  ) 

EQUIVALENCE  (  IWTE,  TAPIN  ),  (  LTMTE,  TAPOT  ) 


C 

CLJ 

CLJ 

CLJ 


INTEGER  TAPIN,  TAPOT 
LOGICAL  TRNSOPT 

THE  INITIALIZED  VALUES  OF  WE  NEXT  FOUR  PARAMETERS  WILL  BE 
RESET.  FOR  EXAMPLE,  WSL  AND  WSH  ARE  RESET  BY  DATA-FILE 
WAYENUM8ERS. 

DW  -  1.E10 
WDL  -  1.E10 
WSL  *  0. 

WSH  *  0. 

IBAND  -  0 

LINK  -  LBANO 

IF  (  TRNSOPT  )  GO  TO  13 


C 

C 

CLJ 

CLJ 

1 

CLJ 


SCAN  SPECTRAL  LIST  TO  OBTAIN  8AND  LIMITS  AND  FINEST  RESOLUTION 
CALL  PREV  (  LINK,  NBN  ) 

IF(  NBN  ,EQ.  0  )  GO  TO  11 

LINT.  WOP 0-5  OF  GRC  DICTIONARY  DATASET-8N  (NO.  114).  IS  LHV 
FOR  LIST  OF  BAND-INTERVAL  QATASETS-BI  (NO-  115). 

LINT  .  IQ(  NBN  ♦  4  ) 

DATASET  INOEX-J  IS  USED  FOR  SIMPLICITY  INSTEAD  OF  THE 
TRADITIONAL  INDEX-NB1  FOR  DATASET-BI . 

10  CALL  PREV  (  LINT,  J  ) 

IF (  J  ,E0-  0  )  GO  TO  9 

WE  ARGUMENT  3  IN  WE  CALL  TO  PUTORA  CAUSES  SORTING  WIW 
RESPECT  TO  WLO  BN(J). 

IF  (  TFLAG  BN( J)  .NE,  0.  )  CALL  PUTORA  (  IBAND,  J,  3  ) 

DW  -  AMINK  OW,  WHI  BN(J)  -  WLO  BN(J)  ) 

WDL  -  AMINI(  WDL,  WLO  BN(J)  ) 

GO  TO  10 


11  OW 


SET  RESOLUTION  FOR  OUTPUT  FILE. 

CHOOSE  0.5  OF  WE  MINIMUM  DW,  BUT  WIWIN  5  TO  50  CM-1  IN  ANY 
EVENT. 

-  AMAXl  (  AMINK  .5  *  OW,  50.  ),  5.  ) 

INITIALIZE  VARIABLES  USED  BELOW.  DESPITE  SPELLING,  W  IS  WE 


TRAMSB 

116 

TRAN  SB 

117 

TRANSB 

118 

TRANSB 

119 

TRANSB 

1Z0 

TRANSB 

121 

TRAMSB 

122 

TRANSB 

123 

TRANSB 

124 

Tk'NSB 

125 

TRAhTB 

126 

TRANSB 

127 

TRANSB 

122 

TRANSB 

179 

TRANSB 

130 

TRANSB 

131 

TRANSB 

13? 

TRANSB 

133 

TRANSB 

134 

TRANSB 

135 

TRANSB 

136 

TRANSB 

137 

TRANSB 

138 

TRANSB 

139 

TRANSB 

140 

TRANSB 

141 

TRANSB 

142 

TRANSB 

143 

TRANSB 

144 

TRANSB 

145 

TRANSB 

146 

TRANSB 

147 

TRANSB 

148 

TRANSB 

149 

TRANSB 

150 

TRANSB 

151 

TRANSB 

152 

TRANSB 

153 

TRANSB 

154 

TRANSB 

155 

TRANSB 

156 

TRANSB 

157 

TRANSB 

158 

TRANSB 

159 

TRANSB 

160 

TRANSB 

161 

TRANSB 

16? 

TRANSB 

163 

TRANSB 

164 

TRANSB 

165 

TRAN5B 

166 

TRANSB 

167 

TRANSB 

168 

TRANSB 

169 

TRAMSB 

170 

TRANSB 

171 

TRANSB 

177 

30b 


CLJ 

SAVED- VALUE  OF  THE  LOW  END  OF  BAND. 

TRANS? 

173 

WH  ■=  WDL 

TRAN  SB 

174 

CLJ 

WOL  AND  WDH  ARE  THE  INITIALIZED  VALUES  OF  THE  LOW  AND  I.iGH 

TRAN  SB 

175 

CLJ 

SIDES  OF  A  CONTINUOUS  OETECTOR  RANGE. 

TRANSB 

176 

WOL  «  1  .£10 

transb 

177 

WDH  *  0. 

TRANSB 

PS 

LAP  *  0 

TRANSB 

17? 

LIMIT  -  IBAND 

TRANSB 

ISO 

c 

TRANSB 

181 

CLJ 

SCAN  BAND-LIMITS  LIST  (WHOSE  LHV-WORD  IS  LIMIT=!BAND)  FOR 

TRANSB 

18? 

CLJ 

SPECTRAL  COVERING. 

transb 

183 

12  CALL  NEXT  (  LIMIT,  J  ) 

TRANSB 

184 

IF  (  J  ,£Q.  0  '  GO  TO  7 

TR  ANSB 

1S5 

IF  (  TFLAG  8N(J)  .GE.  2.  )  LAP  =  LAP  ♦  1 

TRANSB 

186 

CLJ 

NOW  UPDATE  VALLES  OF  LOW  AND  HIGH  SIDES  OF  CONTINUOUS  DETECTOR 

TRANSB 

18? 

CLJ 

RANGE. 

TRANSB 

18? 

WDL  -  AM I N 1 (  WOL.  WLO  BN(J)  ) 

TRANSB 

189 

WOH  -  AN. AX  1  f  WDH,  WHI  BN(J)  ) 

TRANSB 

190 

IF  (  AMOD(  TFLAG  BN(J),  2.  )  .EQ.  1.  )  LAP  *  LAP  -  1 

TRANSB 

191 

IF  (  LAP  .GT.  0  )  GO  TO  12 

TRANSB 

19? 

CLJ 

XSKIP  IS  NONZERO  ONLX  V  SPECTRAL  BANOS  HAVE  A  GAP  BETWEEN 

TRANSB 

193 

CLJ 

THEM. 

TRANSB 

194 

XSKIP  -  IFI X (  (  WDl  -  WH  )  /  0W  ) 

TRANSB 

195 

CLJ 

NOW  SET  the  LOWER  EDGE  OF  THE  NEW  RANGE  AFTER  THE  GAP . 

TRANSB 

196 

WH  -  WH  ♦  XSKIP  *  DW 

TRANSB 

197 

GO  TO  1 

TRANSB 

198 

C 

TRANSB 

199 

C 

SCAN  SPECTRAL  LIST  FOR  USER  DEFINED  TABLE  RESOLUTION 

TRANSB 

200 

CLJ 

THIS  BLOCK  OF  COD'NG  IS  USED  OK' X  FOR  TRNSGPT  =  .TT»UE. 

TRANSB 

201 

13  CALL  PREY  (  LINK ,  NBN  ) 

TRW  SB 

202 

IF (  N8N  .EO-  0  )  GO  TO  7 

TRANSB 

20? 

CLJ 

LINT.  WORD-5  OF  GRC  OICTIONART  DATASET-BN  fNO.  1141,  IS  LHV 

TRANSB 

204 

CLJ 

FOR  LIST  Of  BAND-INTERVAL  DATASETS-B1  (NO.  115). 

TUN  SB 

205 

lint  -  ;or  NBN  +  4  ) 

TRW  SB 

206 

14  CALL  PREV  (  LINT.  J  ) 

TRANSB 

207 

IF (  J  .EO.  0  )  GO  TO  13 

TRANSB 

208 

WDL  -  WLO  BN(J) 

TRANSB 

209 

WOH  -  WHI  8N(J) 

TRANSB 

210 

DW  =  WDH  -  WOL 

TRANSB 

211 

WH  •  WOL 

TRANSB 

21? 

IF  (  WDL  .LT.  WSL  )  RtHIND  TAPIN 

TRANSB 

213 

IF  (  WDl  .LT.  WSL  )  WSH  «  0. 

TRANSB 

214 

IF  <  WDL  .LT.  WSL  )  WSL  *  0. 

TRANSB 

215 

C 

TRANSB 

216 

C 

GENERATE  COMPRESSED  TABLE 

TRANSB 

217 

1  WL  *  WH 

TRANSB 

218 

WH  =  WH  +  DW 

TRANSB 

21° 

CLJ 

ZERO  THE  S  AND  DE  ARRAYS. 

TRANSB 

:?  o 

CALL  XMIT  f  -100,  0.,  S  ) 

TRANSB 

??i 

CALL  XMIT  (  -100.  0.,  DE  ) 

TRANSB 

222 

CLJ 

OLAP  WILL  BE  ZERO  ON  THE  FIRST  PASS  AND  POSSIBLY  MANY  PASSES 

TRANSB 

223 

CLJ 

UNTIL  WSL.GT.Wl  . 

TRANSB 

224 

2  OLAP  -  FRACf  WL,  WH,  WSL,  WSH  ) 

TRANSB 

225 

IF  (  OLAP  .EQ.  0.  1  GO  TO  4 

transb 

236 

C 

TRANSB 

2?7 

C 

ACCUMULATE  SPECTRAL  PARAMETERS 

IRAN  Sg 

??B 

CLJ 

THE  FIRST  10  IS  FOR  10  TEMPERATURES  FOR  THE  FIRST  SPECIES, 

TRANSB 

229 

306 


Cl  J 

NETT  10  FOR  SECOND  SPECIES,  ETC. 

TRAN  SB 

P’S 

DO  3  1*1,100 

TRAN  SB 

??i 

IF  (  DEI'1,1'  .EO.  0.  1  GO  TO  3 

TRANS5 

23? 

deu.ii  *  DEd.n  ♦  ola°  /  deki.d 

transb 

233 

sd.ii  *  sd.n  ♦  oup  *  sodii.ii  t  deic.h 

TRANSB 

234 

3  CONTINUE 

TRANSB 

23E 

CLJ 

ON  FIRST  PASS,  WILL  DROP  THROUGH  TEST.  WHEN  THE  TEST  IS 

TRANSB 

7-tf. 

cu 

SATISFIED,  ENOUGH  OATA  WILL  HAVE  BEEN  ACCUMULATED  TO  COVER  THE 

TRANSB 

237 

CLJ 

WIDTH  OW. 

TRANSB 

??F 

A  IF  (  WSH  .SE.  WH  )  GO  TO  5 

TRANSB 

239 

c 

TRANSB 

240 

c 

BRING  IN  5  CH-1  TABLE  PLANE 

TRANSB 

?4  I 

CLJ 

NOTE  THAT  FOR  A  BINARY  FILE  NO  FORHAT  IS  NEEOEO.  READ 

TRANSB 

24? 

CLJ 

?+(  (10*101*10  1*20?  WORDS  AND  STORE  IN  WSl,  WSH,  ETC. 

TRANSB 

243 

READ  (TAP1N)  WSL.  WSH,  ((  SOOd.IS).  1*1.10  1,  (  OEId.JS),  1*1.10 

TRANSB 

244 

%  1.  JS'1.10  ) 

TRANSB 

245 

CLJ 

NOTE  THAT  THE  EOF  FUNCTION  IS  USED  TO  TEST  FOR  AN  END-GF-F1LE 

TRANSB 

246 

CLJ 

CONDITION  ON  UNIT  TAP1N  FOLLOWING  AN  UNFORMATTED  RCAD.  2ER0 

TRANSB 

247 

CLJ 

IS  RETURNED  IF  NO  END-OF-FILE  IS  ENCOUNTERED.  OR  A  N0N-7ER0 

TRANSB 

249 

CLJ 

value  if  END-OF-FILE  is  encountered. 

TRANSB 

249 

IF  (  EOF(TAFIN)  .EO.  0.  I  GO  TO  2 

TRANSB 

250 

C 

TRANSB 

2.;i 

c 

compute  compressed  spectral  parameters 

TRANSB 

2S2 

5  DO  6  1*1,100 

TRANSB 

253 

IF  (  OE(I.l)  .EO.  0.  1  GO  TO  6 

TRANSB 

254 

DE(I,1)  *  1.  /  OE (1,1) 

TRANSB 

255 

sd.n  -  sd.n  *  DE'i.n 

TP«NSB 

256 

6  CONTINUE 

TRANSB 

257 

r- 

TRANSB 

?BB 

c 

WRITE  COMPRESSED  TA8LE  PLANE 

TRANSB 

259 

WRITE  (TAP0T1  WL .  WH,  ((  S'l.ISl,  1*1,10  1,  (  DEd.ISl.  1*1,10  1. 

TRANSB 

260 

I  IS*1,10  1 

TRANSB 

261 

CLJ 

THE  FOLLOWING  THREE  STATEMENTS  ARE  RELEVANT  ONLY  FOR  7RNS0»T  = 

transb 

26? 

CLJ 

■  FALSE.  .  THE  PIRST  WDH  IS  THE  HIGH  END  OF  THE  BAND .  IF  TEST 

transb 

263 

CLJ 

IS  SATISFIED.  DO  NEXT  DW  IN  SAND.  THE  NEXT  TWO  STATEMENTS 

transb 

264 

CLJ 

COMPRISE  AN  INITIALIZATION  JUST  LIKE  THAT  BEFORE  STATEMENT 

transb 

265 

CLJ 

LABEL  1?.  OF  IMPORT  ONLY  FOR  TRNSOPT*. FALSE.  . 

TRANSB 

266 

IF  (  WH  .LT.  WDH  -  .001  )  GO  TO  1 

TRANSB 

267 

WDL  *  1.E10 

transb 

26S 

WDH  *  0. 

transb 

260 

CLJ 

NOW  DO  NEXT  SPECTRAL  INTERVAL  IF  TRNSOPT*  .TRUE.  .  OTHERWISE, 

transb 

270 

CLJ 

CONTINUE  WITH  SCAN  OF  THE  BAND-LIMITS  LIST. 

transb 

271 

l.'f  TRNSOPT  )  GO  TO  14 

transb 

-»T  *> 

t  >  L 

GO  TO  1? 

transb 

273 

C 

TRANSB 

274 

L 

CLEAN  UP  AND  RETURN 

TRANSB 

275 

7  CALL  W1PCIUT  (  1BAND,  0  > 

TRANSB 

276 

endfile  tapot 

TRANSB 

277 

REWIND  TAPOT 

TRANSB 

?7p 

REWtND  TAPIN 

TRANSB 

V9 

RETURN 

TRANSB 

290 

END 

transb 

281 

:so7 


SUBROUTINE  TRNSCO  (  RX.  RY,  RZ.  LBINT,  RADSW  ) 

TRNSCO 

2 

c 

TRNSCO 

3 

CIJ 

♦TRNSCO*  ESTABLISHES  THE  TRANSMITTANCE  ON  A  COMPOUND  PATH 

TRNSCO 

4 

c 

FROM  RX  TO  RT  TO  R Z  LOCATION  VECTORS. 

TRNSCO 

5 

CIJ 

TRNSCO 

6 

cl  J 

IF 

RADSM-.TRUE.,  SUBROUTINE  ATMRAD  HILL  BE  CALLED  TO  PERFORM  A 

TRNSCO 

7 

CLJ 

RADIANCE  CALCULATION.  IF  ONE  NANIS  RAOSW-.TRUE. ,  THEN  TRNSCO 

TRNSCO 

8 

CIJ 

SHOULD  BE  CALLED  WITH  ONLT  A  STRAIGHT  PATH  AND  NOT  A  COMPOUND  PATH 

TRNSCO 

9 

CIJ 

BECAUSE  NO  ACCOUNT  IS  TAKEN  OF  THE  SCATTERING  EVENT  AT  THE  POINT 

TRNSCO 

10 

CLJ 

RT 

TRNSCO 

11 

CLJ 

TRNSCO 

1? 

c 

TRNSCO 

13 

CLJ 

INPUT  PARAMETERS 

TRNSCO 

1A 

CLJ 

ARGUMENT  LIST 

TRNSCO 

15 

CLJ 

RX(  I )  *  LOCATION  VECTOR  OF  POINT  X.  TYPICALLY  BUT  NOT 

TRNSCO 

16 

CLJ 

NECESSARILT  THE  DETECTOR,  CM 

TRNSCO 

17 

CLJ 

RY(!)  •  LX  AT  ION  VECTOR  Of  POINT  T,  TYPICALLY  BUT  NOT 

TRNSCO 

18 

CLJ 

NECESSARILY  THE  SCATTERING  SITE,  CN 

TRNSCO 

19 

CLJ 

RZ(1)  -  LOCATION  VECTOR  OF  POINT  Z,  TYPICALLY  BUT  NOT 

TRNSCO 

?0 

CLJ 

NECESSARILT  THE  SOURCE,  CM 

TRNSCO 

21 

CLJ 

(FOR  RX,  RT,  AND  RZ  1-1,3) 

TRNSCO 

22 

CLJ 

LBINT  •  WORD  NO.  5  (LHV)  IN  GRC  DATASFT-BN  (NO.  114), 

TRNSCO 

23 

CLJ 

LIST  OF  BAND- INTERVAL  DATASETS  (B!). 

TRNSCO 

24 

CLJ 

STRICTLY,  LBINT  IS  THE  POINTER  (I.E.,  CONTAINS  THE 

TRNSCO 

25 

CLJ 

(0- ARRAY)  ADDRESS)  FOR  THE  LIST  HEADER  OF  THE 

TRNSCO 

26 

CLJ 

BAND-INTERVAL  DATASETS-BI  CORRESPONDING  TO 

TRNSCO 

27 

CLJ 

DATASET-BR . 

TRNSCO 

28 

CL  3 

RADSW  -  INITIALIZATION  SWITCH  FOR  ATMOSPHERIC  VOLUME 

TRNSCO 

29 

CLJ 

EMISSION  CALCULATION.  IS  SET  IN  INPUT  TO  DRIVER. 

TRNSCO 

30 

CLJ 

-  .TRUE.,  INCLUDE  CALL  (FROM  SUBROUTINE  TRNSCO)  TO 

TRNSCO 

31 

CLJ 

SUBROUTINE  ATOIAD 

TRNSCO 

32 

CLJ 

*  .FALSE..  BYPASS  CALL  TO  SUBROUTINE  AT>«AD  AND 

TRNSCO 

33 

CLJ 

PERFORM  TRANSMITTANCE  CALCULATION  WITHOUT  AIR 

TRNSCO 

34 

CLJ 

EMISSION 

TRNSCO 

3S 

CLJ 

DATASET  BI  (BAND- INTERVAL  DATASET,  NO.  IIS) 

TRNSCO 

36 

CLJ 

Q(l)  -  BNLO  BI  *  LOW  WAVELENGTH  FOR  WAVELENGTH- BAND- INDEX 

TRNSCO 

37 

CLJ 

J,  MICRONS 

TRNSCO 

38 

CLJ 

0(2)  «  BNHI  BI  *  HIGH  WAVELENGTH  FOR  WAVE LENGTH -BAND- 

TRNSCO 

39 

CLJ 

INDEX  J.  MICRONS 

TRNSCO 

40 

CLJ 

Q(3)  •  WLO  BI  *  LOW  WAVENU>«ER  FOR  WAVELENGTH-BAND- INDEX 

TRNSCO 

41 

CLJ 

J,  CM-1 

TRNSCO 

42 

CLJ 

0(4)  «  WHI  BI  *  HIGH  WAVENUMBER  FOR  WAVELENGTH-BAND- 

TRNSCO 

43 

CLJ 

INDEX  J,  CM-1 

TRNSCO 

44 

CLJ 

XYZCOM  COMMON 

TRNSCO 

45 

CIJ 

LTMTE  »  BINARY  FILE  CONTAINING  BAND-MODa  PARAMETERS. 

TRNSCO 

46 

CLJ 

DfRIVEO  FROM  THE  5-(CM-l)-RESOLUTION  DATA.  (SEE 

TRNSCO 

47 

CLJ 

subroutine  transb  where  tapot  is  equivalence!)  to 

TRNSCO 

48 

cLJ 

LTMTE.)  HERE  IN  SUBROUTINE  TRNSCO,  FILE  LTMTE  IS 

TRNSCO 

49 

CLJ 

REWOUND  FOR  USE  IN  SUBROUTINE  TRANS. 

TRNSCO 

SO 

CLJ 

OPTION  ctmiN 

TRNSCO 

61 

CLJ 

TRNSOPT  •  LOGICAL  VARIABLE  AFFECTING  COMPLEXITY  OF  MOLECULAR 

TRNSCO 

52 

CLJ 

TRANSMITTANCE  CALCULATION  (SEE  SUBROUTINES  TRANSB 

TRNSCO 

S3 

CLJ 

AND  TRANS).  HERE,  TRNSOPT  IS  USED  ONLY  IN  THE 

TRNSCO 

54 

CLJ 

ARGLMENT  LIST  FOR  THE  CALL  TO  SUBROUTINE  TRANS,  A 

TRN5C0 

56 

CLJ 

CALL  THAT  OCCURS  ONLY  IF  RADSW-FALSE . ,  WTICH  IS 

TRNSCO 

56 

CLJ 

NOT  THE  CASE  FOR  THE  NBR  MODULE. 

TRNSCO 

57 

CLJ 

OUTPUT  PARAMETERS 

TRNSCO 

58 

303 


ClJ 

CLJ 

CLJ 

ClJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

ClJ 

CLJ 

CLJ 

CLJ 

ClJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 


C 


CLJ 

CLJ 

CLJ 

CLJ 

CLJ 
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•**  *0T£  ♦**  TRNSCO 

DESCRIPTION  Of  TNf  OUTPUT  REQUIRES  CARE.  TRNSCO 

1.  IK  THE  (RARE'  EVENT  THE  PATH  SHOULD  NOT  IN1  ER  SECT  THE  TRNSCO 

ATMOSPHERE,  THEN  INITIAL  I  TED  VALUES  Of  WORD-5  (If  RAOSW*  .  TRUE .  '•  TRNSCO 
,  WORD-7,  AND  WORD-8  Of  OATASET-BI  ARE  EXPLICITLY  SET  HERE  IN  TRNSCO 
TRNSCC.  TPN5CO 

?.  IN  'HE  USUAL  EVENT  THAT  THE  PATH  OOES  INTERSECT  mE  ATMOSPHERE,  TRNSCO 
THERE  ARE  TWO  CASES  TO  CONSIDER.  TRNSCO 

2.1  RAOSW*  .TRUE.  (APPLIES  TO  NBR  MODULEl  TRNSCO 

SUBROUTINE  ATWRAD  IS  CALLED  TO  EVALUATE  WORD-5,  -7.  -8  OE  TRNSCO 
OATASET-BI,  BUT  THIS  DATASET  IS  NOT  CALLED  HERE  IN  TRNSCO  ANC  TRNSCO 
THUS  IS  NOT  EXPLICITLY  AVAILABLE  IN  TRNSCO.  TRNSCO 

2.2  RAOSW*. fALSE.  (DOES  NOT  APPLY  TO  NBR  MODULE)  TRNSCO 

SUBROUTINE  ATWAD  IS  NOT  CALLED.  HENCE  THE  CALLS  THAT  ATWRAD  TRNSCO 
MACES  to  GET  THE  TRANSMITTANCE  CALCULATION  DONE  MUST  BE  MADE  TRNSCO 
HERE  IN  TRNSCO.  IN  THIS  CASE  WORD-7  AND  WORD-8  Of  DATASET-51  TRNSCO 
ARE  EXPLICITLY  AVAILABLE.  TRNSCO 

DEf INITIONS  Of  WORD-5,  -7,  AND  -8  Of  OATASET-BI  FOLLOW.  TRNSCO 

0(5)  *  BAGNO  BI  -  IN-BAND- INTERVAL  RADIANCE  (DUE  TO  TRNSCO 

ATMOSPHERIC  EMISSION)  OVER  THE  ENTIRE  TRNSCO 

PATH  LENGTH  (WHICH  SXRJID  HAVE  1-LEG  TRNSCO 
AND  NOT  2-LEGS) ,  W/(C**«?  SR  BAND-INT)  TRNSCO 

0(7)  *  TRANS  BI  -  PRODUCT  OE  MOLECULAR  ANO  AEROSOL  TRNSCO 

TRANSWITTANCES  OVER  THE  ENTIRE  PATH  TRNSCO 

LENGTH  TRNSCO 

Q(8)  *  IDSBX  BI  *  AEROSOL  TRANSMITTANCE  OVER  THE  ENTIRE  TRNSCO 
PATH  LENGTH.  TRNSCO 

***  NOTE  ***  THIS  IS  A  TEMPORARY  USE  Of  WORD- 3  (AND  NOT  TRNSCO 
THE  GRC  DICTIONARY  USE  Of  WORD-8).  HERE  IT  TRNSCO 
USED  TO  CARRY  I  Nf  OR  NATION  TC  SUBROUTINE  TRNSCO 
UPWELL.  TRNSCO 

QWCNC  C0W40N  TRNSCO 

NCNC  -  VARIABLE  SET  TO  NC.  SEE  COWAENT  ABOVE  /QNCNCd  TRNSCO 

TRNSCO 

DIMENSION  OS(IOO),  XFRACSdOO),  INDJ(IOO).  RX(3),  RY(3),  RZ(3),  TRNSCO 

1  TAUflO),  ABC ( 10)  TRNSCO 

TRNSCO 

COWON  OMAREA.  OWAREA(IO).  OPREHO.  QNDTST.  ONL*S,  QISIZE,  TRNSCO 

1  ONZBLIt,  QZHEAD,  QCOUNTf*).  QOSIZE(IO),  QNSIZE.  OLUNIT(IO),  TRNSCO 

2  OERLUN.  QFBIT$(?,10) .  0(1)  TRNSCO 

COW*ON  /  XYZCOM  /  ITHTE,  LTMTE,  NS,  HSHELL(Sl),  TS(S1),  PS(81\  TRNSCO 

1  XNSPEC(81,10),  '1(10,10,2),  UP(10.10,2),  NMOLS,  TRNSCO 

2  PACT  TRNSCO 

COWON  /  OPTION  /  TRNSOPT  TRNSCO 

COWON  0 NCNC  AND  THE  LATER  STATEMENT  IN  WHICH  NCNC  IS  SET  TO  TRNSCO 

NC  ARE  ADDED  TO  fACILITATE  BEING  ABIE  TO  CALL  THE  SAT  TRNSCO 

UPWEllING  NATURAL  RADIATION  MODULE  WITH  ZERO -KILOMETER  TRNSCO 

ALTITUDE.  fOR  MORE  INFORMATION  SEE  COW«fNTS  W FEEDING  LABEL  ^NSCO 
NUMBER  22  IN  SUBROUTINE  UPWELL  OF  THAT  MODULE.  TRNSCO 

CWM0N7  QNCNC/  NCNC  TRNSCO 

DIMENSION  BNIO  BI  (1 ),  BNHI  BI(l),  WLO  BK1),  WHI  Bid).  TRNSCO 

*  BKGNO  Bid),  THAG  Bid),  TRANS  BI(1),  IDSBX  Bid)  TRNSCO 

EQUIVALENCE  (  0(1 1 .  BNIO  BI  ).  (  0(2),  BNHI  BI  ),  TRNSCO 

•  (  0(3).  WLO  BI  ),  (  0'*).  WHI  BI  ).  TRNSCO 

•  (  0(5),  BKGND  BI  ),  (  0(6',  TFlAG  BI  ),  TRNSCO 

*  (  0(7),  TRANS  81  ),  (  0(8).  IDSBX  BI  )  TRNSCO 

TRNSCO 
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60 
61 
6? 
6? 

64 

65 

66 
6’ 
68 

69 

70 

71 

72 

73 

74 

75 

76 

77 
76 

79 

80 
81 
82 
83 
8« 

85 

86 

87 

88 
e9 

90 

91 
9? 

93 

94 

95 

96 

97 

98 

99 
100 
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LOGICAL  RAOSW,  FIRST,  TRNSriR’,  LOGIC 

Ilf 

c 

I  ' 

c 

OBTAIN  INTEGRATION  LIST 

1  IF 

NC  •  0 

TB*iSC? 

Il« 

CALL  STfof  <  Ft,  OT,  NC,  05,  XCRAC5,  iNPt  I 

TRNSCO 

1  c  ? 

CALL  STEPS  (  RT,  RZ,  NT,  OS.  XFRACS,  INOX  ' 

TRNSCO 

121 

NCNC  '  NC 

TRNSCO 

ih 

IFf  NC  .GT.  11  GO  TD  ?P 

TRNSCO 

cu 

i?i 

clj 

TRNSCO 

US 

CLJ 

PATH  does  NOT  INTERSECT  ATMOSPHERE.  THUS,  ONLT  CERTAIN 

TRNSCO 

l?f 

CLJ 

INITIALIZATIONS  ARE  PERFORMED  HERE  IN  LOOR-’O. 

TRNSC: 

1?’ 

LINT  =  L6INT 

TRNSCO 

IDS 

10  CALL  PfiEVNL  (  LINT,  J  ) 

TRNSCO 

i?c 

IF  f  J  .EO.  C  1  RETURN 

TRNSCO 

130 

1F(  RAOSW  1  BAGNO  B!  (J1  =  0. 

TRNSCO 

131 

TRANS  SIfJ'  *  1. 

TRNSCO 

130 

CLJ 

THE  FOLLOWING  A00!tIONAL  INITIALIZATION  IS  APPRORRIA’E  WHEN 

TRNSCO 

133 

CLJ 

THE  SAI  NATllRAL  BACKGROUND  RADIATION  »COUL£  IS  CALLED  WITH 

TPSSC? 

131 

CLJ 

ZERO-A  ILOME'ER  ALtITL*0E. 

TRNSCO 

1 3*. 

CALL  XMIT  {-1,'..,IDS8X  BI(J)1 

TRNSCO 

1 36 

GO  TO  10 

TRNSCO 

13’ 

CLJ 

13? 

CLJ 

TRN<CO 

139 

C 

PATH  INTERSECTS  ATMOSPHERE 

n>  m  5  C  0 

14? 

CLJ 

SET  LOGIC  FOR  first  call  TO  Atm<AD  AND  FIRST  FOR  FIRST  CALL 

TRNSCO 

14’. 

CLJ 

TO  path.  SET  FILPOS  an?  REWIND  FILE  LTVTE  FOR  USE  in  TRANS. 

^S^CO 

14? 

?0  LOGIC  •  .TRUE. 

trnsc’ 

11’ 

FIRST  «  .TRUE. 

TRnSCC 

141 

FILPOS  -  1.E4 

■nJSSw:^ 

US 

REWIND  LTHTE 

DO  30  1  =  1. NC 

TRNSCO 

11’ 

CLJ 

RECALL  THAT  CS!*C+11  *  -1.0  AND  That  NC-1  *  NO-RFR  OF  PA’“ 

T*ssCC 

CLJ 

SEGMENTS. 

TTnS  SCj 

149 

IF (  DS! 1*1 '  .LT.  0.  '  GO  TO  30 

■^ssro 

ISO 

C 

INTE&RATE  P*n<  PR?0ERT1ES 

lc: 

CALL  PATH  <  FIRST,  INDX'Il.  OS'  1*1' .  XFRACSfl!  ' 

TRNSCO 

IS? 

z 

THERMAL  EMISSION  ON  REQUEST 

TRNSCO 

If  7 

CLJ 

"■*  CA‘JT]ON  *** 

TRNSCO 

i'i 

CLJ 

F  SUBROUTINE  TRNSCO  IS  EXERCISE?  ON  A  COMPOUND  PATH  wl*H 

r.ssco 

155 

CLJ 

RAOSW=.TRUE. ,  THE  TRANSMITTANCE  CALCULA’ION  WILL  BE  CORRECT 

TRNSCO 

I'F 

CLJ 

but  the  radiance  calculation  will  be  incorrect  because  no 

TRNSCO 

IS' 

CLJ 

ACCOUNT  HAS  B'EN  TAKEN  or  thc  scattering  EVEN'  A t  RY. 

’CO 

IF  (  RAOSW  I  CALL  ATHUD!  LOGIC,  IN?*' I!,  XFRACSU ).  0S{I*1 ). 

TRNSCO 

iso 

*  LBINT  1 

TvisC? 

is: 

30  CONTINUE 

TRNSCO 

!C’I 

CLJ 

IN  NBR  MODULE,  PAOSW=.TRUE. ,  SO  WE  ARE  THROUGH  WITH  SUBROUTINE 

tpss:o 

if  r 

CLJ 

TRNSCO. 

T**SC? 

if? 

IF  (  RAOSW  I  RlTIRN 

TVNS:? 

ifi 

CLJ 

TR^SC'' 

IfS 

CLJ 

**********************************  +* •  •  *  ********** 

TRNSCO 

'ft* 

CL  3 

CLJ 

REMAINING  PO«TION  Of  THIS  WINE  IS  VT  USED  IN  THE 

Tp  s  c.'*  '■* 

1*c 

CLJ 

STANDARD  “0E:  OF  OPERATING  THE  NBR  MODULE  W!^  RAOSW*. TRUE. 

^  \  ? 

CLJ 

>  ®  *»  ^ 

CLJ 

ZERO  FIRST  HALVES  OF  THE  U  AND  L'P  ARR A* S. 

TJSS-.* 

CAiL  AMI'  !  -10O,  0..  .  1 

'?0 

CALL  XMIT  (  -100,  0.,  UP  1 

TRNSCO 

173 

cu 

SCAN  SPECTRAL  BAND- INTERVAL  LIST. 

TRNSCO 

174 

LINT  *  LBINT 

TRNSCO 

175 

40 

CALL  PREVNL  (  LINT,  J  ) 

TRNSCO 

176 

IF  (  J  ,E0.  0  )  RETURN 

TRNSCO 

177 

WL  •  WLO  81  ( J) 

TRNSCO 

178 

WH  =  WHI  81 ( J) 

TRNSCO 

179 

CLJ 

SCT  MEAN  WAVELENGTH  FOR  CALL  TO  AEROSOL. 

TRNSCO 

180 

W  =  0.5*(WL»WH) 

TRNSCO 

181 

NAVEL  =  1.E4/W 

TRNSCO 

182 

c 

OBTAIN  TRANSMISSION  FOR  EACH  SPECTRAL  INTERVAL 

TRNSCO 

1B3 

cu 

GET  MOLECULAR  TRANSMITTANCE  AND  TEMPORARILY  CALL  IT 

TRNSCO 

184 

cu 

TRANS  EUJ). 

TRNSCO 

185 

CALL  TRANS  (  10,  1,  11(1,1,2),  'JP(1,1,2),  XI,  WL,  WH,  TAU,  ABC, 

TRNSCO 

186 

*  TRANS  BIfJ),  TRNSOPT,  FILPOS  ) 

TRNSCO 

187 

CLJ 

INITIALIZE  THE  AEROSOL  TRANSMITTANCE  TOST 

TRNSCO 

188 

TOST  -  1. 

TRNSCO 

189 

CLJ 

GET  THE  ALTITUDE  AT  THE  FIRST  POINT  P  ALONG  THE  TRANSMITTANCE 

TRNSCO 

190 

CLJ 

PATH. 

TRNSCO 

191 

LI  -  INDX(l)  i  L2  *  INDX(2) 

TRNSCO 

192 

HSP  =  XFRACS(l)  *  HSHELL(Ll)  +  (1. -XFRACS(1 ) }  *  HSHELL(LZ) 

TRNSCO 

193 

CALL  AEROSOL  '  HSP,  WAVEL,  XKSCA,  XKABS,  GBAR  ) 

TRNSCO 

194 

CLJ 

XKEXTP  IS  THE  AEROSOL  EXTINCTION  COEFFICIENT  AT  POINT  P,  1/CM 

TRNSCO 

195 

XKEXTP  =  XXSCA  ♦  XKABS 

TRNSCO 

196 

00  50  1=1, NC 

TRNSCO 

197 

IF  (  DSd+1)  .LE.  0.  )  GO  TO  60 

TRNSCO 

198 

LI  =  INOX(I) 

TRNSCO 

199 

L2  =  INDX( 1*1 1 

TRNSCO 

200 

CLJ 

GET  THE  ALUTUOE  AT  POINT  Q  ALONG  THE  TRANSMITTANCE  PATH. 

TRNSCO 

201 

USD  -  XFRACS(t*l)  *  HSHELLfL?)  ♦  (  1.  -  XFRACS( I+l )  )  *  H SHELL! Ll ) 

TRNSCO 

202 

CALL  AEROSOL  (  HSQ,  WAVEL.  XXSCA,  XKABS.  GBAR  ) 

TRNSCO 

203 

CLJ 

XKEXTO  IS  THE  AEROSOL  EXTINCTION  COEFFICIENT  AT  POINT  Q,  1/CM 

TRNSCO 

204 

XKEXTQ  =  XKSCA  +  XKABS 

TRNSCO 

205 

CLJ 

FIND  THE  MEAN  AEROSOL  EXTINCTION  COEFFICIENT  OVER  THE  PATH 

TRNSCO 

206 

CLJ 

ELEMENT  CSn+1)  B'  INTEGRATING  THE  UGARITHMICALIV- 

TRNSCO 

207 

CLJ 

INTERPOLATED  VALUE  OT  THE  EXTINCTION  COEFFICIENT  OVER  0S(I+1) 

TRNSCO 

208 

CLJ 

AND  DIVIDING  BY  0$d*l). 

TRNSCO 

209 

XKEXT  =  ACCUMi  2,  0_,  f,S(I+l),  XKEXTP,  XKTXT:J,  0.,  DSd+1)  )  / 

TRNSCO 

210 

*  DS(  1+11 

TRNSCO 

211 

CLJ 

TOST  IS  THE  AEROSOL  TRANSMITTANCE  FROM  THE  START  OF  THE  PATH 

TRNSCO 

212 

CLJ 

TO  THE  BACK  OF  ELEMENT  DSC  1*1 ) 

TRNSCO 

213 

TOST  =  TOST  *  EXP(  -XKEXT  •  us;!*ll  1 

TRNSCO 

214 

CLJ 

RESET  EXTINCTION  COEFFICIENT  OF  MEW  POINT  P  TO  THAT  AT  THE 

TRNSCO 

215 

CL  1 

OLD  point  o. 

TRNSCO 

216 

XKEXTP  =  XKEXTQ 

TRNSCO 

217 

50 

CONTINUE 

TRNSCO 

218 

CLJ 

IRAN 5  B I < J )  IS  NOW  RESET  TO  BE  THE  PRODUCT  OF  THE  MOLECULAR 

TPNSTO 

219 

CLJ 

TRANSMITTANCE  FOR  ALL  THE  SPECIES  AND  THE  AEROSOL 

TRNSCO 

220 

CLJ 

TRANSMITTANCF,  EACH  for  THE  ENTIRE  path. 

TRNSCO 

221 

60  TRANS  BKJl  ■  TRANS  BHJ)  *  TOST 

TRNSCO 

??? 

CLJ 

PRESERVE  THE  AEROSOL  TRANSMITTANCE  BY  SETTING  IDESX  BI(J). 

TRNSCO 

223 

CALL  XMIT  ( 1  ,TDST,  IOSBX  BHJ)) 

TRMSCO 

224 

GO  TO  40 

TPNSCO 

225 

END 

TRNSCO 

226 

ill 
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subroutine  unitv  (  vx,  vxhat  ) 


SUBROUTINE  UNITV  RETURNS  THE  UNIT  VECTOR  VXNAT(l-3)  AEONS 
TOE  VECTOR  VX( 1-3) . 

DIMENSION  VX(3),  VXNAT(3) 

CALL  VEIN  (  VXHAT.  1 ,/SORT(OOT( VX, VX) ),  VX,  0.  ,  0.  ) 

RETURN 

END 


SUBROUTINE  UPWELE  (  HSM,DO,WW,DW,SPCULR,LBINT,JBAND  ) 

SUBROUTINE  UPWELL,  FOR  A  POINT  V  AT  EACH  OF  A  SET  OF  NALTJ 
Al.TITUDES  ABOVE  A  GIVEN  GEOGRAPHIC  POSITION,  SPECIFIED  IN 
UPWELS  COMMON  (UPWLAT.UPWlON.UPHALT)  AND  CHARACTERIZED  BY 
MATERIAL  MSM  AND  PROPERTY  DD(MSNI),  COMPUTES  THE  NATURAE 
UPHELLING  SPECTRAL  RADIANCE  DIRECTED  TOWARD  POINT  V  FROM 
POINTS  P  LOCATED  ON  THE  EARTH'S  SURFACE  WITH  RESPECT  TO  POINT 

V  AT  NNAOIR  REPRESENTATIVE  NADIR  ANGLES  AND  NAZI  REPRESENTA¬ 
TIVE  AZIMUTH  ANGLES.  THIS  UPWELL ING  RADIANCE.  UPRAD( 1 , J,K,l) , 
INCLUDES  CONTRIBUTIONS  FROM  (1)  AIR  EMISSION  BETWEEN  POINTS 

V  AND  P.  (2)  SURFACE  EMISSION  AT  POINT  P,  AND  13)  SURFACE- 
REFLECTED  SOLAR  RADIATION  AT  EACH  POINT  P.  VALUES  OF  THE 
RADIANCE  UPRADl I , J,K,L)  ARE  AVERAGEO  OVER  AZIMUTH  ANGLES  TO 
GIVE  UPRADA(I.J.L)  AND  OVER  NADIR  ANGLES  TO  GIVE 

UPRADN( I.L.UBAND). 

***  NOTE  ***  SEE  COMMENTS  GIVEN  UNDER  OUTPUT  PARAMETERS  FOR 

***  ***  THE  DIFFERENT  MEANING  OF  UPRADNl I ,L , JBAND)  IN 

***  ***  ThE  GRC  AND  SAI  VERSIONS. 

THE  INCLUSION  OF  NATURAL  CLOUDS  COMPLICATES  THE  MODELING.  NO 
ATTEMPT  IS  MADE  TO  INCLUDE  THE  DETERMINISTIC  CLOUD  SUBMODEL. 
THE  STATISTICAL  CLOUD  SUBMODEL  IS  INCLUDED  ONLY  FOR  ALTITUDES 
ZKM  EQUAL  TO  OR  GREATER  THAN  THE  HIGHEST  ALTITUDE  (12  KM)  OF  A 
CLOUD  IN  THAT  SUBMODEL.  THE  GENERAL  PROCEDURE  IS  TO  FIRST 
CONSIDER  A  GIVEN  ALTITUDE.  NADIR,  AND  AZIUJTH.  WITH  THE  AIR 
EMISSION.  ARCVA(1KM,U,L).  ALONG  THE  LINE-OF-SIGHT  (LOS)  ABOVE 
1Z-KM  ALTITUDE  SERVING  AS  A  BASE  VALUE,  WE  OBTAIN  A 
DISTRIBUTION  FUNCTION  FOR  THE  ADDITIONAL  RADIANCE 
CORRESPONDING  TO  CLOUD-FREE-  AND  CLOUDY-LOS  EXTENDING  BELOW 
1?-KM  ALTITUDE.  BECAUSE  THERE  ARE  159  CLOUD  CONFIGURATIONS  IN 
THE  STATISTICAL  CLOUD  MODEL,  THIS  DISTRIBUTION  FUNCTION  HAS 
160  MEMBERS  FOR  NIGHTTIME  AND  161  MEMBERS  FOR  DAYTIME... 

159  FOR  CLOUD-TOP  EMISSION  AND  (IF  DAYTIME) 
CLOUD-REFLECTED  SOLAR  RADIATION 
1  FOR  EARTH'S  SURFACE  EMISSION  AND  AIR  EMISSION  BELOW 
12-KM  ALTITUDE  (FOR  A  1-LEG  CLOUD-FREE  LOS) 

1  FOR  EARTH'S  SWEACE  EMISSION,  AIR  EMISSION  BELOW  12- 
KM  ALTITUDE,  AND  (IF  DAYTIME)  GROUND-REFLECTED  SOLAR 
RADIATION  (FOR  A  2-LEG  CLOUD-FREE  LC5,  OBTAINING  IN 
DAYTIME) 

THE  LAST  TWO  MEMBERS  ARE  THE  WEIGHTED  CONTRIBUTIONS  FOR  CLOUD- 
FREE-LOS  CONDITIONS.  (OWING  TO  CERTAIN  SIMPL1CATI0NS  MADE 
.‘N  THE  CLOUD  MODELING,  THERE  ARE  ACTUALLY  ONLY  9  AND  NOT  169 
DISTINCT  VALUES  IN  THE  DISTRIBUTION  FOR  A  CLOUDY-IOS.)  HAVING 
DETERMINED  THE  DISTRIBUTION  FUNCTION  FOR  A  GIVEN  LOOK 
DIRECTION  FROM  POINT  V,  WE  FORM  THE 

INTEGRAL  DISTRIBUTION  AND  COMPUTE  SELECTED  PERCENTILES  (XXX= 
10.2S, 50, 90,100)  OF  THE  INTEGRAL  DISTRIBUTION,  RXXX(K,L),  AT 
IMPLICIT  ALT.-IKM,  IMPLICIT  NAD1R-J,  AND  EXPLICIT  AZIMUTH-K. 
VALUES  OF  RXXX(K.L)  ARE  AVERAGED  OVER  AZIMUTH  ANGLES  TO  GIVE 
RXXXA(  1KM, J,L) .  VALUES  OF  ARCVAMKM,  J,Ll  AND  RXXXAl  IKM.J.L) 
ARE  AVERAGED  OVER  NADIR  ANGLES  TO  GIVE  ARrvNf  1  km , [  1  AND 
RXXXN( IKM.L),  RESPECTIVELY. 


UPWELL 

2 

UPWELL 

3 

UPWELL 

4 

UPWELL 

5 

UPWELL 

6 

UPWELL 

7 

UPWELL 

8 

UPWELL 

0 

UPWELL 

10 

UPWELL 

11 

UPWELL 

1? 

UPWELL 

13 

UPWELL 

14 

UPWELL 

15 

UPWELL 

16 

UPWELL 

17 

UPWELL 

18 

UPWELL 

19 

UPWELL 

20 

UPWELL 

21 

UPWELL 

22 

UPWELL 

23 

UPWELL 

24 

UPWELL 

25 

UPWELL 

26 

UPWELL 

27 

UPWELL 

28 

UPWELL 

29 

UPWELL 

30 

UPWELL 

31 

UPWELL 

32 

UPWELL 

33 

UPWELL 

34 

UPWELL 

35 

UPWELL 

36 

UPWELL 

37 

UPWELL 

38 

UPWELL 

39 

UPWELL 

40 

UPWELL 

41 

UPWELL 

4? 

UPWELL 

43 

UPWELL 

44 

UPWELL 

45 

UPWELL 

46 

UPWELL 

47 

UPWELL 

48 

UPWELL 

49 

UPWELL 

50 

UPWELL 

51 

UPWELL 

5? 

UPWELL 

53 

UPWELL 

54 

UPWELL 

55 

1 12 


***  NOTE  ***  SINCE  THE  INCLUSION  Of  THE  INDEX  JBAND  HAS  A 
LATE  CHANGE  (MARCH  1980),  HE  ELECTED  NOT  TO  MODIFY  THE  ARRAYS 
ARCVN(IKM.L)  AND  RXXXN(IKM.L)  TO  PROVIDE  FOR  AN  EXPLICIT 
DEPENDENCE  ON  THE  INDEX  JBAND  AS  HE  DIO  FOR  THE  ARRAY  UPRADNfl 
,L, JBAND).  THIS  LIMITATION  HIST  BE  REMEMBERED  AND  REMOVED  IF 
JBAND. GT.l  AND  IF  CLOUDS  ARE  INCLUDED,  UNLESS  ONE  IS  CONTENT 
TO  ADOPT  THE  GRC  DEFINITION  OF  UPRADNU  ,L,  JBANO) . 

NOTE  THAT  IT  WOULD  PROBABLY  BE  FORE  CONCEPTUALLY  SATISFYING  IF 
ONE  COULD  PERFORM  AZIMUTH-  AND  NADIR-AVERAGES  FOR  EACH  OF  THE 
CLOUD  CONFIGURATIONS,  SO  THAT  ONE  COULD  END  UP  WITH  A 
DISTRIBUTION  FUNCTION  AT  A  GIVEN  ALTITUDE  INSTEAD  OF  AVERAGED 
PERCENTILE-VALUES.  SUCH  A  PROCEDURE  HAS  NOT  FOLLOWED. 


UPWELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 

UPHELL 
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5? 

58 

59 

60 
61 
6? 

63 

64 

65 

66 

67 

68 
69 


c 

UPHELL 

70 

C 

NOTE  THAT  THE  NATURAL  CLOUD  MODEL  DOES  NOT  INCLUDE  AIR 

UPHELL 

71 

c 

EMISSION  BETWEEN  CLOUD  TOPS  AND  12-KM  ALTITUDE. 

HENCE.  SUCH 

UPHELL 

7? 

c 

AIR  EMISSION  IS  NOT  INCLUDED  HERE,  EITHER. 

UPHELL 

73 

ccc 

UPHELL 

74 

cc 

THE  UPWELLING  NATURAL  RADIATION  FCDEL 

(23C)  HAS 

NOW  BEEN 

UPHELL 

75 

cc 

INTEGRATED  WITH  THE  FOLLOWING  MODELS. 

•  .  . 

UPHELL 

76 

cc 

AMBIENT  ATK) SPHERE 

ii 

SAI/LJ 

UPWELL 

77 

rc 

ATMOSPHERIC  AEROSOLS 

1C. 19. 1C 

VI 

UPHELL 

78 

(C 

NATURAL  CLOUDS 

ID. 19. ID 

SAI/PA 

UPHELL 

79 

CD 

ATMOSPHERIC  THERMAL  EMISSION 

208 

GET 

UPHELL 

80 

CC 

EARTH  SURFACE  CHARACTERIZATION 

23A 

SAI/LJ 

UPWELL 

81 

CC 

EARTH  SURFACE  RADIANCE 

23B 

SAI/LJ 

UPWELl 

8? 

CC 

SOLAR  RAOIATION 

23E 

SAI/LJ 

UPHELL 

83 

CC 

MOLECULAR  TRANSMITTANCE 

?4D 

GET 

UPHELL 

84 

CCC 

UPHELL 

85 

c 

INPUT  parameters 

UPHELL 

86 

C 

ARGUMENT  LIST 

UPWELL 

87 

c 

MSM  -  INDEX  FOR  CATEGORY  OF 

SURFACE  MATERIAL  (SEE 

UPWELL 

88 

SUBROUTINE  ESUAF  FOR  DEFINITIONS)  UPHELL  89 

DO  -  ADDITIONAL  DESCRIPTOR  FOR  SELECTED  SURFACE  UPHELL  90 

MATERIAL  (SEE  SUBROUTINE  ESURF  FOR  DEFINITIONS)  UPHELL  91 

HU  -  ARRAY  OF  CENTRAL  WAVENUMBERS,  CM-I  UPHELL  9? 

DW  -  ARRAY  OF  WAVENUMBER- INTERVAL  WIDTHS,  CM-1  UPHELL  93 

SPCULR  -  LOGICAL  PARAMETER  UPHELL  94 

-  .TRUE.  COMPUTE  COORDINATES  OF  SPECULAR  UPHELL  95 

REFLECTION  POINT  ON  A  SMOOTH  UPHELL  96 

HORIZONTAL  HATER  SURFACE.  UPHELL  97 

■  .FALSE.  DO  NOT  COMPUTE  COORDINATES  OF  SPECULAR  UPHELL  98 

REFLECTION  POINT.  UPHELL  99 

LBINT  -  WORD  NO.  5  (LHV)  IN  GRC  DATASET-BN  (NO.  114),  UPHELL  100 
LIST  OF  BAND-INTERVAL  DATASETS  (BI).  UPHELL  101 

STRICTLY,  LBINT  IS  THE  POINTER  (I.E.,  CONTAINS  UPWFLL  10? 

THE  (Q-ARRAY)  ADDRESS)  FOR  THE  LIST  HEADER  OF  UPWEIE  103 

THE  BAND- INTERVAL  DATASETS-BI  CORRESPONDING  TO  UPWELL  104 

DATASET-BN.  UPHELL  10S 

JBANO  -  INDEX  FOR  LIST  OF  (BROAD)  WAVELENGTH  BANDS  UPHELL  106 
AJRSOL  COFfCN  UPWELL  107 

TASP(L)  -  AEROSOL  TRANSMITTANCE  FOR  INCOMING  SOLAR  RAY  TO  UPWEl  L  108 
POINT  P  ON  GROUND.  L*1,NWAVEJ  UPHELL  109 

TASC(L)  -  AEROSOL  TRANSMITTANCE  FOR  INCOMING  SOLAR  RAY  TO  UPWELL  110 
POINT  C  AT  U-KM  ALTITUDE.  L-l.NHAVEJ  UPHELL  111 

0PTIN1  COWCN  UPHELL  11? 

RADSW  -  LOGICAL  PARAMETER.  IS  AN  INITIALIZATION  SWITCH  UPHELL  113 
FOR  ATMOSPHERIC  VOLUME  EMISSION  CALCULATION.  UPHELL  114 

IS  SET  IN  INPUT  TO  (DRIVER)  PROGRAM  DfiVUPW  FOR  UPHELL  115 
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c 

subroutine  upwell. 

UPWEll 

116 

c 

*  .TRUE.  ,  INCLUDE  CALL  (FROM  SUBROUTINE  TRNSCO) 

UPWFLL 

117 

c 

TO  SUBROUTINE  atmrad 

UPWELL 

118 

c 

-  .FALSE.,  BYPASS  CALL  TO  SUBROUTINE  ATMRAD  AND 

UPWELL 

11® 

c 

PERFORM  TRANSMITTANCE  CALCULATION 

UPWELL 

120 

c 

WITHOUT  INCLUDING  AIR  EMISSION. 

UPWELL 

121 

c 

OPTION  COfWON 

UPVELL 

12? 

c 

TRNSOPT  -  LOGICAL  VARIABLE  AFFECTING  COMPLEXITY  Of 

UPWELL 

123 

c 

MOLECULAR  TRANSMITTANCE  CALCULATION  (SEE 

UPWELL 

1?4 

c 

SUBROUTINES  TRAN SB  AND  TRANS).  IN  SUBROUTINE 

UPWFLL 

125 

c 

UPWELL.  TRNSOPT  IS  USED  ONLY  IN  THE  ARGUMENT 

UPWELL 

126 

c 

LIST  FOR  CALLS  TO  SUBROUTINE  TRANS. 

UPWELL 

127 

c 

SOLAR P  CONMON 

UPWELL 

128 

c 

SOLLAT  -  SUBSOLAR  POINT  NORTH  LATITUDE,  RADIANS 

UPWELL. 

129 

c 

SOLLON  -  SUBSOLAR  POINT  EAST  LONGITUDE,  RADIANS 

UPWELL 

130 

c 

SOLiRR(L)  U*1,NWAVEJ) 

UPWELL 

131 

c 

-  SOLAR  SPECTRAL  IRRADIANCE  AT  THE  TOP  OF  THE 

UPWELL 

13? 

c 

EARTH'S  ATMOSPHERE  AT  WAVENUMBER- INDEX  L 

UPWFLL 

133 

c 

WATTS  /  (  CM«2  CM-1  ) 

UPWFLL 

134 

c 

UPWEES  COMMON 

UPWELL 

135 

c 

UPWLAT  -  NORTH  LATITUDE  OF  POINT  V  AT  WHICH  UPWELLING 

UPWELL 

136 

c 

RADIANCE  IS  COMPUTED,  RADIANS 

UPWELL 

137 

c 

UPWLON  -  EAST  LONGITUDE  OF  POINT  V  AT  WHICH  UPWELLING 

UPWELL 

138 

c 

RADIANCE  IS  COMPUTED,  RADIANS 

t'°WELL 

139 

c 

UPWAIT  -  SURFACE  ALTITUDE  OF  THE  SUB-V-POINT,  KM 

UPWFLL 

140 

c 

NALT(JBANO)  ( JBANO=l .NBANOS) 

UPWELL 

141 

c 

-  NUMBER  OF  ALTITUDES  ZKM  FOR  (R°OAD)  WAVELENGTH- 

UPWELL 

14? 

c 

BAND  INDEX  JBAND.  DEFINES  NALTJ. 

UPWELL 

143 

c 

ZKM(I.JBANO)  ( 1  =  i , NALTJ,  ,1B."TiD*1  .NBANDS) 

UPWELL 

144 

c 

-  ALTITUDES  OF  POiNT  V  ABOVE  UPWALT  AT  WHICH 

UPWELL 

145 

c 

UPWELLING  RADIANCE  IS  COMPUTED,  KM 

UPWELL 

146 

c 

NNADIR  -  NUMBER  OF  NADIR  ANGLES  AT  POINT  V  AT  WHICH 

UPWELL 

147 

c 

UPWELLING  RADIANCE  IS  COMPUTED 

UPWELL 

1 48 

c 

NAZI  -  NUMRER  OF  AZIMUTH  ANGLES  AT  POINT  V  AT  WHICH 

UPWELL 

149 

c 

UPWFLLING  RAOIAi.CE  IS  COMPUTED 

UPWELL 

150 

c 

NWAVE(JBANO)  (JBANP-1, NBANDS) 

UPWELL 

151 

c 

-  NUMBER  OF  WAVENUMBERS  AT  WHICH  THE  UPWELLING 

UPWELL 

15? 

c 

SPECTRAL  RADIANCE  IS  TO  BE  COMPUTED  FOR  (BROAD) 

UPWELL 

153 

c 

WAVELENGTH-BAND  INDEX  UBANP.  DEFINES  NWAVEJ. 

UPWFLL 

154 

cc 

CLDFLG  -  INDEX  FOR  INCLUSION  Of  NATURAL  CLOUDS 

UPWELL 

155 

cc 

-  0.  IF  NATURAL  CLOUDS  ARE  NOT  INCLUDED 

UPWELL 

156 

cc 

-  1.  IF  NATURAL  CLOUOS  ARE  INCLUDED 

UPWELL 

157 

cc 

CLDFRFO  COWON 

UPWELL 

158 

cc 

K MODEL  -  INDEX  (1,11)  CHARACTERIZING  A  SET  DF  STATISTICAL 

UPWELL 

15® 

cc 

AVERAGES  OF  CLOUD  COVERAGE  CATEGORIES,  CLOUD 

UPWELL 

160 

cc 

TYPES,  AND  NUMBER  OF  CLOUD  LAYERS  FOR  A  GIVFN 

UPWELL 

161 

cc 

GEOGRAPHIC  REGION.  CHARACTERIZES  A  SPECIFICATION 

UPWELL 

16? 

cc 

Of  CCOVER( 5,1 I )  AND  CFREQf 17,4, 11 )  IN  BLOCK  DATA 

UPWELL 

IS’ 

cc 

FOR  KM0DEL*1 , 10.  JSEk  MUST  SUPPLY  HIS  OWN  DATA 

UPWELL 

164 

cc 

FOR  KMODEL'll . 

UPWELL 

16c 

cc 

CCOVER ( I CC .KMOOEL )  ( ( ICC-1 ,5 > .KMOOEL *1 ,11 1 

UPWFLL 

IS'. 

cc 

-  FRACTIONAL  OCCURRENCE  FREQUENCY  OF  CLOUD  COVERAGE 

UPWELL 

167 

cc 

CATEGORY  ICC  FOR  GIVEN  KMOOEL 

UPWELL 

188 

cc 

CIDWT  COWON 

UPWELL 

16® 

cc 

IDX  -  INOEX  FOR  LENGTH  OF  ARRAYS  RETURNED  FROM 

UPWELL 

170 

cc 

SUBROUTINE  CLDWT.  IDX  EQUALS  ISC  FOR  A  FULL  SET 

UPWFLL 

171 

cc 

OF  15®  CLOUD-LAYER  AND  CLOUD-TYPE  CONFIGURATIONS 

UPWFLL 

17? 

il'1 


cc 

AND  IS  LESS  FOR  A  RESTRICTED  SET. 

UPWELL 

173 

cc 

WT{ I )  -  PROBABILITY  OF  CONFISCATION- 1 .  ID*  EQUALING  160 

UPWFLL 

174 

cc 

I-l.IDX  CORRESPONDS  TO  A  CLOUD-FREE  LINE-OF-SIGHT. 

UPWELL 

175 

cc 

TRANS(I)  -  TRANSFER  COEFFICIENT  FOR  CONF IGURATION-I .  IN  NBR 

UPWELL 

176 

cc 

1=1. IDX-1  MODULE,  GEOMETRY  FOR  TRANSMISSION  THROUGH  CLOUDS 

UPWELL 

177 

cc 

IS  NOT  INCLUDED.  ONLY  GEOMETRY  FOR  REFLECTION  OF 

UPWELL 

17R 

cc 

SOLAR  RAY  FROM  THE  HIGHEST-LAYER  CLOUD  IN 

UFWELL 

179 

cc 

CONFIGURATION-1  IS  INCLUDED.  ATTENUATION  IS 

UPWELL 

180 

cc 

INCLUDED  (WITHIN  THE  NATURAL  CLOUD  MODEL  1  TO  12- 

UPWELL 

131 

cc 

KM  ALTITUDE.  (l/SR) 

UPWELL 

182 

cc 

FMTSS(I)  -  THERMAL  SPECTRAL  RADIANCE  FROM  THE  HIGHEST-LAYER 

UPWELL 

183 

cc 

1=1. IDX-1  CLOUD  IN  CONFIGURATION-1  WITH  ATTENUATION  COMPUTED 

UPWELL 

184 

cc 

(WITHIN  THE  NATURAL  CLOUD  MODEL)  TO  12-KM  ALTITUDE 

UPWELL 

185 

re 

(W/(KM»*2  SR  MICRON!) 

UPWELL 

186 

c 

QNCNC  COFWON 

UPWELL 

187 

c 

NCNC  -  A  VARIABLE,  SET  TO  NC  AFTER  THE  DOUBLE  CALL  TO 

UPWELL 

ISP 

c 

SUBROUTINE  STEPS  IN  SUBROUTINE  TSnSCO,  EMPLOYED  TO 

UPWELL 

1°9 

c 

FACILITATE  BEING  ABLE  TO  USE  ZERO- K1 LOMETER 

UPWELL 

190 

c 

ALTITUDE  IN  THE  NBR  MODULE.  FOR  MORE  INFORMATION. 

UPWELL 

191 

c 

SEE  COMMENTS  PRECEDING  LABEL  NUMBER  22. 

UPWELL 

192 

c 

OUTPUT  PARAMETERS 

UPWELL 

193 

c 

***  NOTE  ***  UPRAD(K.L).  UPRADAf I , J,L) ,  AND  UPRADN(I,L, 

UPWELL 

194 

c 

J8AND)  ARE  CLOUD-FREE  RESULTS.  FOR  RESULTS  WHICH  ALSO 

UPWELL 

195 

c 

INCLUDE  CLOUD  EFFECTS  FOR  ALTITUDES  .GE.  12  KM, 

UPWELL 

196 

c 

USE  THE  CORRESPONDING  ARRAYS  RXXX(K,L).  RXXXA( IKM, J.L ) , 

UPWELL 

197 

c 

AND  RXXXN(IKM.L).  TO  THESE  ARRAYS  ONE  MUST  ADD, 

UPWELL 

19E 

c 

RESPECTIVELY,  THE  BhSE-VALUE  QUANTITIES  ARCVA( IKM.U.L ) , 

UPWELL 

199 

c 

ARCVA{ IKM, J,L ) ,  AND  ARCVN( IKM, L ) . 

UPWELL 

200 

c 

«**  NOTE  ***  IN  THE  GRC  VERSION,  FOR  ALTITUDES  EQ"AL  TO 

'JP'xlFl  l. 

20! 

c 

OR  GREATER  THAN  12  KM  AND  IF  CLOUDS  ARE  INCLUDED.  THE 

UPmEl'. 

20,’ 

c 

ARRAY  UPRAON(  I  ,L ,  JBAND)  IS  RESET  AS 

UPWELL 

203 

c 

UPRADN(I,L,JBAND)  *  ROSON(IKM.L)  ♦  ARCVN( IKM.L)  , 

UPWELL 

204 

c 

WHICH  IS  TRANSFERRED  THROUGH  UPWELS  OW1N  TO  (THE  GRC) 

UPWELL 

205 

c 

SUBROUTINE  UPWELT.  THUS,  IN  THE  GRC  VERSION.  FOP 

UPWELL 

206 

c 

ALTITUDES  ZKM.GE . 12-KM,  UPRADN  IS  NOT  THE  CLOUD-FREE 

UPWELL 

207 

c 

RESULT  BUT  THE  50-PERCENTRE  OF  THE  RADIANCE 

UPWELL 

208 

c 

DISTRIBUTION  FUNCTION  FOR  STATISTICAL  CLOUDS  (IF 

UPWELL 

209 

c 

INCLUDED  IN  THE  PROBLEM). 

UPWELL 

210 

c 

UPWELS3  COFWON 

UPWFLL 

211 

c 

UPRAO(K.L)  K*1,NAZI ,  L=1,NWAVEJ 

UPWELL 

212 

c 

(IMPLICITLY  I=1,NALTJ,  j=i .nnadir ) 

UPWELL 

213 

c 

(I-  AND  J-DEPENDENCE  IS  NOT  STORED,  SO  USER 

UPWELL 

214 

c 

MUST  PRINT  UPRAD(K.L)  IMMEDIATELY  AFTER 

UPWELL 

215 

c 

COMPUTATION  IF  HE  WANTS  TO  SEE  THEM). 

UPWELL 

215 

c 

CURRENTLY,  UPRAO(K,L!  AND  RXXX (K ,L 1  ARE  BEING 

UPWELL 

217 

c 

WRITTEN  IN  BINARY  FORM  ON  LOGICAL  UNIT  NO.  8, 

UPWELL 

218 

c 

FOR  ALL  APPROPRIATE  ALTITUDES  AND  NADIRS. 

UPWELL 

?!  R 

c 

-  NATURAL  UPWELLING  SPECTRAL  RADIANCE  RECEIVED 

UPWELL 

220 

c 

AT  POINT  V  (AT  ALTITUDE-!  ABOVE  SURFACE  MAT 'RL 

UPWELL 

221 

c 

MSM)  ALONG  A  RAY  DIRECTED  TO  POINT  P  ON 

UPWELL 

22? 

c 

EARTH'S  SURFACE  (AT  NADIR-.l  AND  AZIM'.rfH-K ), 

UPWELL 

223 

c 

WATTS/(CM«?  SR  CM- 1) 

UPWFLL 

2?4 

c 

UPRAPA(I,J,L)  I-l.NALTJ,  Jd.NNADIR,  L=1,NWAVEJ 

UPWELL 

225 

c 

-  THE  AZIMUTH- AVERAGED  VALUE  Or  UPRADfK ,L) , 

UPWELL 

2?6 

c 

WATTS/(CM*=?  SR  CM-1 t 

UPWELL 

??? 

c 

50RCE  CO»«ON  (SOLAR  COORDINATES  ARE  NEEDED  IN  SUBROUTINE 

UPWFLL 

228 

c 

TRANSF  OF  THE  NATURAL  CLOUD  MODULE.) 

UPWELL 

22° 
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NSORCE  -  NUMBER  OF  SOURCES.  SET  TO  1  IN  DATA  STATEMENT.  UPWELL  230 

HSORCE(l)  -  ALTITUDE  OF  SUN  (RSUH).  RSUN  SET  IN  DATA  UPWELL  231 

STATEMENT.  UPWELL  23? 

RSORCE(l)  -  RADIUS  OF  SOURCE.  TRUE  VALUE  FOR  SUN  IS  NOT  UPWELL  233 
RELEVANT  FOR  THIS  APPLICATION  IN  NATURAL  UPWELL  234 

BACKGROUND  RADIATION  MODULE.  SET  TO  0.0  IN  UPWELL  235 

DATA  STATEMENT.  UPWELL  236 

THETAS  -  C01ATITUDE  OF  SUBSOLAR  POINT,  DEGREES  UPWELL  237 

PHIS  -  EAST  LONGITUDE  OF  SUBSOLAR  POINT,  DEGREES  UPWELL  238 

TECTOfi  COWON  (USED  HERE  TO  POSITION  FICTITIOUS  DETECTOR  UPWELL  239 

AT  POINT  V)  UPWELL  240 

OETLAT  -  DETECTOR  NORTH  LATITUDE,  RADIANS  UPWELL  241 

DETLON  -  DETECTOR  EAST  LONGITUDE,  RADIANS  UPWELL  242 

DETALT  -  DETECTOR  ALTITUDE,  KM  UPWELL  243 

POSITN  COWON  UPWELL  244 

POSLAT  -  NORTH  LATITUDE  Of  POINT  P  AT  WHICH  LINE-OF-  UPWELL  245 

SIGHT  INTERSECTS  EARTH*  S  SURFACE,  RADIANS  UPWELL  246 

POSLON  -  EAST  LONGITUDE  OF  POINT  P  AT  WHICH  LINE-OF-  UPWELL  247 

SIGHT  INTERSECTS  EARTH'S  SURFACE,  RADIANS  UPWELL  248 

POSALT  -  ALTITUDE  OF  POINT  P  AT  WHICH  LINE-OF-SIGHT  UPWELL  249 

INTERSECTS  EARTH'S  SURFACE,  KM  UPWELL  250 

C12LAT  -  NORTH  LATITUDE  OF  POINT  C  AT  WHICH  LINE-OF-  UPWELL  251 

SIGHT  INTERSECTS  THE  12-KM  ALTITUDE  SURFACE,  UPWELL  252 

RADIANS  UPWELL  253 

C12L0N  -  EAST  LONGITUDE  OF  POINT  C  AT  WHICH  LINE-OF-  UPWELL  254 

SIGHT  INTERSECTS  THE  12-KM  ALTITUDE  SURFACE.  UPWELL  255 

RADIANS  UPWELL  256 

C12ALT  -  ALTITUDE  OF  POINT  C  AT  WHICH  LINE-OF-SIGHT  UPWEL1  257 

INTERSECTS  12-KM  ALTITUDE  SURFACE.  KM  UPWELL  258 

UPWELS  COWON  UPWELL  259 

I  DAW  -  INDEX  FOR  DAYLIGHT  CONDITION  AT  SUB-V-POINT  UPWELL  260 

*  C  IF  SOLAR  ZENITH  ANGLE  .GT.  90  DEGREES  UPWELL  261 

-  1  IF  SOLAR  ZENITH  ANGLE  .LE.  90  DEGREES  UPWELL  262 

UPRADN(I,L,JBANO)  I-l.NALTJ.  l«l,NWAVEJ,  JBAND»1  .NBANDS  UPWELL  263 

-  THE  NADIR-AVERAGED  VALUE  Of  UPRADA( I , J.l),  UPWELL  264 

WATTS/ (CM**2  SR  CM-1)  UPWELL  265 

1KM  -  INDEX  FOR  NUMBER  OF  ALTITUDES  AT  WHICH  UPWELL  266 

CALCULATIONS  ARE  MADE  WHEN  CLOUDS  ARE  INCLUDED.  UPWELL  267 

(USED  IN  SUBROUTINE  SURRAD)  UPWELL  268 

UPWELS1  COWON  UPWELL  269 

ARCVA(IKH.J.l)  FOR  IKM.GE.l.  0*1,NNADIR,  UPWELL  270 

L'l.MWAVEJ  UPWELL  271 

-  WHEN  CLOUDS  ARE  CONSIDERED,  A  COMPONENT  OF  THE  UPWELL  27? 

UPWELLING  SPECTRAL  RADIANCE  RECEIVED  AT  POINT  V  UPWELL  273 

(AT  ALTITUDE-IKM),  FROM  AIR  EMISSION  ABOVE  12-KM  UPWELL  274 

ALTITUDE,  ALONG  A  RAY  DIRECTED  TO  POINT  P  ON  THE  UPWELL  275 

EARTH  SURFACE  (AT  NADIR-J  AND  INDEPENDENT  OF  UPWELL  276 

AZIMUTH -K),  WATTS/ (CM**2  SR  CM-1)  UPWF1 L  "7/ 

AfiCVN(IKM.L)  EOR  IKM.GE.l.  L*1,NWAVEJ  UPWELL  278 

-  THE  NADIR-AVERAGED  VALUE  OF  ARCVA( IKM, J.L ),  UPWELL  279 

WATTS/ (CM**2  SR  CM-1)  UPWELL  280 

RXXX(K.L)  (XXX-10, 25, 50, 90,100)  UPWELL  281 

-  XXX  PERCENTILE  OF  THE  INTEGRAL  DISTRIBUTION  OF  THE  UPWELL  28? 

TOTAL  (INCLUDING  THAT  FROM  STATISTICAL  CLOUDS)  UPWELL  283 

NATURAL  UPWELLING  SPECTRAL  RADIANCE  RECEIVED  AT  UPWEU  284 

POINT  V  FOR  WAYENUMBER-L  (AT  IMPLICIT  ALTITUDE-IKM  UPWELL  285 

ABOVE  SURFACE  MATERIAL  MSM)  ALONG  A  RAY  DIRECTED  UPWELL  286 
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TO  POINT  P  ON  EARTH  SURFACE  (AT  IMPLICIT  NADIR-J 
AND  EXPLICIT  A2IMUTH-K),  WATTS/ (CM** 2  SR  CM-1) 
•♦NOTE  THAT  RXXX(K.L)  DOES  NOT  INCLUDE 

arcva( ikm  j  L ) . 

CURRENTLY*  UPRAD(X.L)  AND  RXXX(K.L)  ARE  BEING 
WRITTEN  IN  BINARY  FORM  ON  LOGICAL  UNIT  NO.  8. 
FOR  ALL  APPROPRIATE  ALTITUDES  AND  NADIRS. 
RXXXA(IKM, J,L)  (XXX*10, 25 .50,90, 100) 

-  THE  AZIMUTH- AVER  AGED  VALUE  OF  RXXX(K.L), 

WATTS/(CM*«2  SR  CM-1) 

RXXXN(IKM.L)  (XXX-10,25,50,90,100) 

-  THE  NADIR-AVERAGED  VAlUE  OF  RXXXA(IKM,J,L), 

WATTS/ (CM**2  SR  CM-1) 

FLAGS  COMMON 

ITFLAG  -  FLAG  INDICATING  THE  DIURNAL  CONDITION  AT  POINT  V*. 
FOR  USE  BY  SUBROUTINE  CLDWT  IN  THE  NATURAL  CLOUD 
MODULE. 

■  0,  SUN  IS  BELOW  THE  HORIZON 
•  1,  SUN  IS  ABOVE  THE  HORIZON 
SAN DO  COMMON 

XS,  -  EARTH -CENTERED  CARTESIAN  COORDINATES  OF  THE  SUN. 
YS.  (KM) 

ZS 

XD,  -  EARTH-CENTERED  CARTESIAN  COORDINATES  OF  THE 
VD,  FICTITIOUS  DETECTOR  AT  POINT  V. 

ZO  (KM) 

UL,  -  DIRECTION  COSINES  OF  POINT  P  FROM  POINT  V. 

VL. 

UL 

UPWELS2  COMAON 

JBANDl  -  SAME  AS  JBAND,  BUT  MADE  AVAILABLE  TO  SUBROUTINE 
SURRAD  TO  FACILITATE  PRINT. 


COMMON  QBLNKq(89),  Q(l) 

EQUIVALENCE  (Q.IQ) 

DIMENSION  IQ(1 ) 

DIMENSION  BNLO  Bid ).  BNHI  BI(1),  WLO  BI(1),  WHI  BI(1), 

•  BKGNO  BI(1),  TFLAG  61(1).  TRANS  BI(1),  IDSBX  BI(1) 
***  SEE  SUBROUTINE  ATWRAD  FOR  DEFINITIONS  OF  DATASET  BI 

EQUIVALENCE  (  Q(l),  BNLO  BI  ),  (  Q(?).  BNHI  BI  ), 

*  (  0(3),  WLO  BI  ),  (  0(4),  WHI  BI  ), 

*  (  0(5).  BKGNO  BI  ).  (  Q(6),  TFLAG  BI  ), 

•  (  0(7),  TRANS  BI  ],  (  0(8),  IDSBX  BI  ) 

Qi MT» SION  RP( 3) ,RC(3) ,RV(3) ,TAU( 10) ,0MEGAT(13) ,WW(10) ,Dw( 10) 
DIMENSION  DD( 7 ) ,RAD(IZ ) ,UPS( 10,10,11 ) ,UPPS(10, 10,11 ), 
t  UCS(IO.IO)  ,UPCS(10,10), 

i  UPV(IO.IO)  ,UPPV(I0,10). 

S  UCV(IO.IO)  .UPCV(IO.IO), 

S  USPV(IO.IO)  ,UPSPV(1D,10). 

S  U5CV( 10,10)  .UPSCV(IO.IO) 

DIMENSION  TAPV(10).TTPV( 10),TTSPV(10) ,TMSPV( 10),AEPV(10) 
DIMENSION  TACV(IO) ,TTCV(10),TTSCV(10) ,TMSCV(10),AECV(10) 
DIMENSION  ABC (10) 

DIMENSION  WTC(15Z),UPRA0C(16Z),UPRDC1(162) 

COWtON/OPTION/  TRNSOPT 


CO»«ON  /  0PTIN1  /  RADSW 
CO>*ON/  0«CNC/  NCNC 


UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 


287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 
336 

336 

337 

338 

339 

340 

341 
34? 
343 
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C0t*CN/AIRS0l/  TASf>ao).TASC(10),TAFP(10)  AIRSOL  2 

COtWON/CLOFREQ/  KMQDEL,CCOV£R[5,ll ) ,CFREQ(17,4,11)  CLDFREQ  2 

C0*40N/CLDWT/  IDX,WT(161 ) , TRANS (161 ), EMI  SS(  161 )  CLDBUG  1 

COMMON/POS1TN/  POSLAT , POSLON , POSALT , SPCLAT , SPCLON  POSITN  2 

1  ,C12LAT.C12LON,C12ALT  POSITH  3 

COMMON  /SAHOD/  X$,Y$,ZS,XD,YO,ZD,UL,Yl,WL  SANDDQ  2 

SAI’S  /SORC if  DIFFERS  FROM  GRC'S.  24APR80  2 

COFWON/  SORCE/  NSORCE,HSORCE(l),RS0RCE(l), THETAS, PHIS  KOMATM  1 

COMMON/SOLARP/  SOLLAT,SOLLON.SOlIRR(10)  SOLARP  2 

COMMON/TECTOfi/  OETIAT.DETLON, DEFALT, OETZEN, OETAZI(ll )  TECTOR  2 

COFWON/UPWELS/  UPWALT,UPWLON,UPWLAT,NALT{5),ZKM(13,5),MNADIR.NAZI,  UPWELS  2 

*  NHAYEtSMOAYV.CLDFLS.UPRADNdS.lO.SKHVdO.SI.IXM,  UPHELS  3 

*  NBANDS  UPHELS  A 

COMM0N/UPWELS1/  UPWELS  5 

2  R010(6 ,10) ,R010A(6 ,10,10),R010N(6,10),  UPHELS  6 

3  R025(6,10),R025A(6.10,10),R025N(6,10),  UPWELS  7 

A  ROSO(6,10),R050A(6.10,10),R050N(6,10),  UPWELS  8 

S  R090(6.10),R090A(6.10,10),R090N(6,10),  UPWELS  9 

E  R100(6,10) ,RIOOA(6 ,10,10),R10GN(6 ,10)  UPWELS  10 

7  ,ARCVA(6,10,10),ARCVN(6,10)  UPWELS  11 

COWON/UPVELS2/  JBAAOl  XYZCOH  2 


COMM0N/UPWELS3/  UPRA0(6,10) ,UPfiADA( 13, 10,10) 

XYZCOM 

3 

COWON/  XYZCOM/  ITMTE,LTMTE,NS,HSHELL(81).TPX(81,12), 

XYZCOM 

4 

1  U(10.10,2),UP( 10,10, 2), NMOLS, FACT 

XYZCOM 

S 

c 

SAl'S  /FLAGS/  DIFFERS  FROM  GRC'S. 

24APR80 

1 

COtWON/  FLAGS/  ittlag 

FLAGS 

2 

LOGICAL  SPCULR.SPCLRX.RAOSW.TRNSOPT 

UPWFIL 

356 

DATA  PI. RE  /  3. 141592653590, 6. 37103E+O3  / 

UPWELL 

357 

DATA  N SPECS, NTEMP  /  1U.10  / 

UPWELl 

3S8 

DATA  N SORCE,  RSORCE(l)  /  1.  0.0  / 

UPWELL 

359 

DATA  RSUN  /  1.49S979E+08  / 

UPWELL 

360 

ccc 

UPWELL 

361 

cc 

SET  J3AND1  IN  COHAON  /UPWELS2/  TO  FACILITATE  SOME  PRINT  IN 

UPWELL 

362 

cc 

SUBROUTINE  SURRAD. 

UPWELL 

363 

JBAN01  ■■  JBANO 

UPWELL 

364 

ccc 

UPWELL 

365 

cc 

SET  VARIABLES  IN  TECTOR  COWION  FOR  INITIAL  POSITION  OF 

UPWELL 

366 

cc 

DETECTOR  AT  SUBPOINT  V',  FOR  USE  IN  DETERMINING  THE  REFERENCE 

UPWELL 

367 

cc 

AZIMUTH  ANGLE. 

UPWELL 

368 

DETLAT  •  UPVLAT 

UPWELL 

369 

DETLON  ■  UPWLON 

UPWELL 

37  D 

DETALT  -  UPWALT 

UPWELL 

371 

cc 

SET  REFERENCE  AZIMUTH,  REEAZI,  TO  BE  THAT  OF  THE  SUBSOLAR 

UPWELL 

372 

cc 

POINT  WITH  RESPECT  TO  POINT  V  IF  SUN  IS  ABOVE  THE  HORIZON  AT 

UPWELL 

373 

cc 

SUBPOINT  V'  OR  ZERO  OTHERWISE. 

UPWELL 

374 

PIO?  *  Pl/2. 

UPWELL 

375 

REFAZI  *  0.0 

UPWELL 

376 

cc 

IS  SUN  ABOVE  THE  HORIZON  AT  SUBPOINT  Y'7 

UPWELL 

377 

SINSIN  «  SIN ( DETLAT )*SIN(SOLLAT) 

UPWELL 

378 

COSCOS  *  COS(DETLAT)»CO$(SOLLAT) 

UPWELL 

379 

CSSOLZ  «  SINSIN  +  COSCOS*COS)OEaON-SOlLON) 

UPWELL 

380 

IDAYV  *  0 

UPWELL 

382 

cc 

UPWELL 

38? 

cc 

WHEN  (A)  CORE  IS  PRESET  TO  MON-ZEROS  AND  (B)  SUN  IS  BELOW 

UPWELL 

383 

cc 

THE  HORIZON,  WE  NEED  TO  SET  THE  SOLAR  COORDINATES  TO  ARBITRARY 

UPWELl 

384 

cc 

VALUES  SO  THAT  SUBROUTINE  SGEOM  (CALLED  FROM  EMISSF,  CALLED 

UPWELL 

385 

cc 

FROM  CLOWT,  CALLED  FROM  UPHELD  HILL  NOT  ABORT  IN  TRYING  TO 

UPWELL 

386 

m 


cc 

COMPUTE  SOlFCE  GEOMETRY  EVEN  WHEN  iff  DON’T  WANT  IT. 

upwell 

387 

xs  ■=  o.  $  rs  *  o.  i  zs  «  o. 

upwell 

388 

cc 

UPWELL 

389 

IF (  CSS0CZ.LT. 0.0  )  GO  TO  10 

UPWELL 

390 

I0AYV  *  1 

UPWELL 

391 

cc 

DETERMINE  AZIMUTH  OF  SUBPOINT  S'  Of  SUN  BY  USIHG  A  MODIFIED 

UPWELL 

392 

cc 

HARC  SUBROUTINE  GEOREA.  NOTE  THAT  GEOREA  CALLS  A  HARC  ROUTINE 

UPWELL 

393 

cc 

GEOXYZ  WHICH  WE  HAVE  RENAMED  GEOTAN  TO  DISTINGUISH  IT  FROM 

UPWELL 

394 

cc 

THE  SAI  ROUTINE  GEOXYZ. 

UPWELL 

395 

DALTCM  *  1.0E+05*DETALT 

UPWELL 

396 

CALL  GEOREA(DALTCM.PID2-OETLAT.OETLON,0.0,PID2-SOLLAT,SOLLON, 

UPWELL 

397 

S  SR21 ,  EL21,REFAZI ) 

UPWELL 

398 

cc 

NOW  HAVE  REFAZI.  ALSO  HAVE  UNNEEDED  SR21  AND  EL21. 

UPWELL 

399 

cc 

GET  EARTH-CENTERED  CARTESIAN  COORDINATES  OF  SUN  FOR  SGEOM. 

UPWELL 

400 

CALL  GEOXYZ (R5UN,S0LLAT,S0LL0N,XS,YS,ZS) 

UPWELL 

401 

cc 

SET  COORDINATES  OF  SUN  INTO  SORCE  CO*«N  FOR  TRANSF. 

UPWELL 

402 

HSORCE(l)  -  RSUN 

UPWELL 

403 

THETAS  *  (PID2-S0LLAT)*180./PI 

UPWELL 

40« 

PHIS  «  S0LL0N*180./PI 

UPWELL 

405 

cc 

UPWELL 

406 

cc 

ZERO  ARRAYS  USPV,  UPSPV,  USCV,  AND  UPSCV  USED  LATER  TO 

UPWELL 

407 

cc 

PRESERVE  PATH  PARAMETERS  FOR  THE  PATHS  SPV  AND  SCV. 

UPWELL 

408 

CALL  XMIT  (  -100.  0..  U  SPV  ) 

UPWELL 

409 

CALL  XMIT  (  -100.  0..  UPSPV  ) 

UPWELL 

410 

CALL  XMIT  (  -100.  0..  U  SCV  ) 

UPWELL 

411 

CALL  XMIT  (  -100,  0.,  UPSCV  ) 

UPWELL 

412 

cc 

UPWELL 

413 

10  CONTINUE 

UPWELL 

414 

cc 

UPWELL 

415 

cc 

SET  ALTITUDES  OF  ALL  POINTS  P  (TO  BE  VIEWED  FROM  POINT  V) 

UPWELL 

416 

cc 

EQUAL  TO  THE  SURFACE  ALTITUDE  OF  THE  SUB-V-POINT. 

UPWELL 

417 

POSALT  ■  UPWALT 

UPWELL 

418 

PALTCM  «  1.0E*O5*P0SALT 

UPWELL 

419 

cc 

IKM  =  INDEX  FOR  THE  HUMBER  OF  ALTITUDES  AT  WHICH  NATURAL 

UPWELL 

420 

cc 

CLOUDS  HAVE  BEEN  INCLUDED  IN  THE  UPWELLlNG  RADIANCE 

UPWELL 

421 

cc 

CALCULATION  (REQUIRED  BECAUSE  CLOUDS  ARE  INCLUDED  ONLY  FOR 

UPWELL 

422 

cc 

ALTITUDES  ZKM  EQUAL  TO  OR  GREATER  THAN  12.  KM). 

UPWELL 

423 

IKM  -  0 

UPWELL 

424 

cc 

BEGIN  LOOP  OVER  NALTJ  ALTITUDES. 

UPWELL 

425 

NALTJ  -  NALT(JBAND) 

UPWELL 

426 

00  80  1-1. NALTJ 

UPWELL 

427 

cc 

IIP.JJP.KKP.LLF  ARE  THE  LOOP  INDICES  USED  IN  THE  CALL  TO 

UPWELL 

428 

cc 

SUBROUTINE  SURRAD  WITHIN  THE  WAVENUMBER  LOOP. 

UPWELL 

429 

IIP  -  I 

UPWELL 

430 

IF(  ZKM(I.JBANO)  .LT.  0.001  )  ZKM(I.JBAND)  -  0.001 

UPWELL 

431 

DETALT  *  UPWALT  ♦  ZKM(I.JBAND) 

UPWELL 

432 

DALTCM  =  1.0E*05*DETALT 

UPWELL 

433 

cc 

GET  EARTH-CENTERED  CARTESIAN  COORDINATES  OF  POINT  V. 

UPWELL 

434 

CALL  GEOX YZ( DETALT, DETL AT, DETL ON, R V( 1 ),RV( ?),RV(3)) 

UPWELL 

435 

cc 

GET  EARTH-CENTERED  CARTESIAN  COORDINATES  OF  DETECTOR  FOR  SGEOM 

UPWELL 

436 

XO  -  RV(1) 

UPWELL 

43? 

YO  -  RV(?) 

UPWELL 

438 

ZD  •  RV(3) 

UPWELL 

439 

CALL  VLIN(RV,1 .OE+OS.RV.O.O.O.O) 

UPWELL 

440 

cc 

FOR  ALTITUDE  DETALT,  DETERMINE  FRACTION  OF  ?*PI  50LID  ANGLE, 

UPWELL 

441 

cc 

OMEGAT,  THAT  IS  SUBTENDED  BY  THE  TANGENT  CONE  WITH  VERTEX  AT 

UPWELL 

44? 

cc 

POINT  V.  FIRST,  COMPUTE  SLANT  RANGE,  SRT,  OF  TANGENT  R»v 

UPWELL 

443 

3i° 


cc 

FROM  POINT  V. 

UPWEIL 

AAA 

SRT  *  SQRT{  (2.*RE+DETALT)*0ETALT  ) 

UPVELL 

445 

cc 

COMPUTE  COSINE  OF  NADIR  ANGLE,  CBETAT  -  COS(BETAT),  CORRES¬ 

UPWELL 

4  Ag 

cc 

PONDING  TO  TANGENT  RAY. 

UPVELL 

4A7 

CBETAT  *  SRT/(R£+D£TALT) 

UPWELL 

4AS 

OMESAT(l)  -  1.0-CBETAT 

UPWELL 

AA9 

cc 

IT  MAY  NOT  BE  NECESSARY  TO  SAVE  THESE  SOLID  ANGLE  FACTORS. 

UPWELL 

AfD 

cc 

CIDFG1  -  FLAG  CONTROLLING  A  TEMPORARY  ASPECT  OF  THE 

UPWELL 

451 

cc 

CLOUD-RELATED  CALCULATIONS.  CLDFG1  IS  ALWAYS  0.0  IF 

UPWELL 

452 

cc 

CLOFLG  «  0.0  BUT  MAY  BE  0.0  OR  1.0  IF  CIDFLG  *  1.0  . 

UPWELL 

453 

cc 

CLDfGl  IS  SET  TO  0.0  JUST  BEFORE  THE  TEST  ON  ALLOWED 

UPWELL 

454 

cc 

ALTITUDES  AND  MASTER  FLAG  (CLOFLG]  FOR  INCLUSION  OF  CLOUDS 

I'PWELL 

455 

cc 

AND  IS  RESET  TO  1.0  JUST  AFTER  THIS  TEST. 

UPWELL 

456 

cc 

CLDFG1  CONTROLS  THE  CALCULATION  OF  (A)  CFPV  IN  NADIR  LOOP. 

UPWELL 

457 

cc 

SINCE  CFPV  IS  INDEPENDENT  OF  AZIWTH  BUT  DEPENDENT  ON  NADIR 

UPWELL 

458 

cc 

AND  HENCE  ALTITUDE,  ANO  (B)  VARIOUS  CLOUD-CCLATED  QUANTITIES 

UPWELL 

459 

cc 

IN  WAVENUMBER  LOOP. 

UPWELL 

460 

cc 

»  1.0  ALLOWS  CALCULATION  ON  FIRST  PASS. 

UPWELL 

461 

cc 

*  0.0  BYPASSES  CALCULATION  ON  LATER  PASSES  OR 

UPWELL 

462 

cc 

BYPASSES  CALCULATION  ON  ALL  PASSES  IF  CLDFLG-O.O. 

UPWELL 

463 

CLDFG1  «  0.0 

UPWELL 

464 

IF (  (ZKM(I.JBAND)  .IT.  12.0)  .OR.  (CLOFLG  .EQ.  0.0)  )  GO  TO  17 

UPWELL 

465 

ccc 

UPWELL 

466 

cc 

***  GOT  HERE  FOR  CLOUDS,  DAY  OR  NIGHT 

UPWELL 

467 

IKM  -  IKM+1 

UPWELL 

468 

CLDFG1  -  1.0 

UPWELL 

469 

IF(  1KM.GT.1  )  GO  TO  17 

UPWELL 

470 

ccc 

UPWELL 

471 

cc 

«**  GOT  HERE  FOR  CLOUDS,  ZKM(  I ,  JBAND)  *  12.0  KM  **************** 

UPWELL 

472 

cc 

SET  ALTITUOES  OF  ALL  POINTS  C  (TO  BE  VIEWED  FROM  POINT  V) 

UPWELL 

473 

cc 

EQUAL  TO  12-KM. 

UPWELL 

474 

C12ALT  *  12.0 

UPWELL 

475 

CALTCH  *  1.0E+05*C!2ALT 

UPWELL 

476 

cc 

THF  NATURAL  CLOUD  MODEL  (NCM)  FUNCTION  CFLOSF( ICC, CHI ) 

UPWELL 

477 

cc 

COMPUTES  THE  PROBABILITY  OF  A  CLOUD-FREE  L1NE-0F-SIGHT 

UPWELL 

478 

cc 

(CFLOS),  GIVEN  THE  CLOUD  COVERAGE  IN  TENTHS  (ICC-Hl)ll)  AND 

UPWELL 

4  79 

cc 

ZENITH  ANGLE  CHI  (DEGREES).  HERE,  WE  WANT  CFPS.  A  MEAN 

UPWELL 

480 

cc 

PROBABILITY  OF  A  CFLOS  FROM  POINT  P  TO  THE  SUN,  OBTAINED 

UPWELL 

481 

cc 

AN  AVERAGE  OVER  THE  NCM  CLOUO-COVERAGE  VALUES  OF  0,3, 5, 8.  AND 

UPWELL 

482 

cc 

10  TENTHS,  OCCURRING  WITH  PROBABILITIES  CCOVER  ( I  .KWDEL) 

UPWELL 

483 

cc 

(1-1,5),  FOR  A  SELECTED  VALUE  OF  KMODEL .  WE  ASSUME  THE  SOLAR 

UPWELL 

484 

cc 

ZENITH  ANGLE  SOLZ  AT  THE  SU8 POINT  V  IS  AN  EXCELLENT  APPROX¬ 

UPWELL 

485 

cc 

IMATION  TO  THOSE  AT  ALl  POINTS  P. 

UPWELL 

486 

IF (  IDAYV  .EC  0  )  GO  TO  17 

UPWELL 

487 

ccc 

UPWELL 

488 

cc 

***  GOT  HERE  FOR  CLOUDS,  DAY  »«— »«»»#«««— — 

UPWELL 

489 

RTD  -  1B0./PI 

UPWELL 

490 

solz  •  rto*acos(  cssoiz  ) 

UPWELL 

491 

CFPS  -  CCOVER(1.KMODEL)*CFIOSF(1,SOLZ) 

UPWELL 

49? 

1  +  CCOVER(2,KMODEL)*CFLOSF(4,$OLZ) 

UPWELL 

40J 

Z  ♦  CCOVER(3,KMODEL)*CFLOSF(6,SOLZ) 

UPWELL 

494 

3  +  CCOVER(4,K»DEL)*CFLOSF(9,SOLZ) 

UPWELL 

495 

4  ♦  CCOVER(5.KMOOEL)*CFLOSF(11,SOLZ) 

UPWELL 

49C 

cc 

THE  ABOVE  CALCULATIONS  ARE  DONE  ONLY  FOR  THE  FIRST 

UPWELL 

49’’ 

cc 

ALTITUDE  AT  WHICH  A  CLOUD  CALCULATION  IS  DONE. 

UPWELL 

498 

ccc 

UPWELL 

490 

17  CONTINUE 

UPWELL 

500 
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cc 
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***  60T  HERE  FOR  OAT  OR  NIGHT,  REGARDLESS  Of  aOUOS  *•****•' 

PREPARE  TO  LOOD  OVER  NNADIR  NADIR  ANGLES  CORRESPONDING  TO 
FRACT11ES  Of  0ME6AT,  FRCTL. 

PNN  -  ANADIR 
00  70  J*1,NNAQ1R 
JJP  *  J 
f  J  •  J 

FRCTL  *  (FJ-0.5)/FNN 

COMPUTE  NADIR  ANGLE  8ETA  CORRESPONDING  TO  FRACTILE  FRCTL. 

BETA  *  ACO'(  1.0-FRCTL*0NE6AT(1)  J 

COMPUTE  ZENITH  ANGLE,  CHI,  OF  POINT  V  VIEWED  FROM  POINT  P 
(THE  INTERSECTION  POINT  AT  THE  EARTH'S  SURFACE  OF  THE  RAT 
FROM  POINT  V  AT  NADIR  ANGLE  BETA) . 

CHI  -  ASIN(  (l.(HDETALT'RE)*SIN(8ETA)  ) 

COMPUTE  THE  EARTH  CENTRAL  ANGLE,  ALPHA,  SUB TENDED  BY  POINTS  P 
AMD  V. 

ALPHA  •  CHI -BETA 

IF(  CLDFG1  .EQ.  0.0  )  SO  TO  20 

«**  GOT  HERE  FOR  CLOUDS,  OAY  OR  NIGHT  . . . 

COMPUTE  ZENITH  ANGLE,  CHIC,  OF  POINT  V  VIEWED  FROM  POINT  C 
(THE  INTERSECTION  POINT  AT  THE  12-XN  ALTITUDE  SURFACE  OF  THE 
RAY  FROM  POINT  V  AT  NADIR  ANGLE  BETA  TO  POINT  P). 

CHIC  -  BETA 

IF (  DETALT  .GT.  C12ALT  )  CHIC  ■  ASIN(  ( (RE+OETALT)/ (RE<C12ALT)  )• 

$  SIN(BETA)  ) 

COMPUTE  THE  EARTH  CENTRAL  ANGLE,  ALPHAC,  SUBTENDED  8Y  POINTS  C 
AND  V.  ALPHAC  IS  USED  LATER. 

ALPHAC  *  CHIC  -  BETA 

EXPRESS  CHI  IN  DEGREES  (CHID)  AS  REquiREi.  FOR  INPUT  TO 
SUBROUTINE  CLDWT. 

CHID  -  CHI  *  RTD 
20  CONTINUE 

PREPARE  TO  LOOP  OVER  NAZI  A2IHJTH  ANGLES.  RESET  MAXIMUM 
m*B£R  OF  AZIMUTH  ANGLES,  NAZI,  TO  BE  1  IF  IDAYVO  OR  MSH=! . 

IF (  (IDAYV.EQ.O)  .OR.  (MSM.EQ.l)  )  MZ1  -  1 
INITIALIZE  AZIMUTH  ANGLE. 

PIDNA  -  PI/FLOAT(NAZI) 

AZI  -  RtFAZI-O. 5*P!DNA 
00  60  K*1 .NAZI 
XX  P  *  X 

ALLOW  SOLAR  SPECULAR  REFLECTION  POINT  TO  BE  COMPUTED  ONLY  ONCE 
PER  ALTITUDE.  HOWEVER,  IF  IDAYV-0  OR  MSM.NE.2  WE  DO  NOT 
COMPUTE  SPECULAR  REFLECTION  POINT  AT  ALL. 

SPCLRX  .  SPCULR  .AND.  .(.W0.EQ.2) 

IF(  (iOAVV.EO.O)  .OR.  (MSM.NE.2)  )  SPaRX  -  .FALSE. 

AZI  •  AZI+PIDSA 

MUST  SET  IAT1TU0E  AND  LONGITUDE  OF  POINT  P  IN  P05ITN  COfWN. 
USE  REVISED  H«C  SUBROUTINE  AGAGEO  WITH  POINT  1  BEING  POINT  V 
AND  POINT  2  BEING  POINT  P. 

CALL  AGA6EO(OAlTCM.PID2-DETLAT,OETLON.AZI,ALPHA,PALTCM,PSCLAT. 

J  POSLON) 

POSLAT  «  PID2-PSCLAT 
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21 


now  HAVE  LATITUDE  AND  LONGITUDE  0*  POINT  P. 

GET  EARTH-CENTERED  CARTESIAN  COORDINATES  OF  POINT  P. 

CALL  GEO*YZ(POSALT.POS1.AT,?0$ION,RP!!).RP(?),RP(3}1 

SET  DIRECTION-COSINES  III.  VL,  AND  ML  OF  POINT  P  FRO*  POINT  V. 
UL  •  RP(1 l-XD 
YL  *  RPv'21-YO 
ML  -  RP(3)-ZD 

RR1  =■  l.O/S(JRT(  UL*’JL  ♦  VL*YL  *  ML*Wl  ) 

UL  «  UL*RRI 
VL  *  VL*RRI 
ML  «  Wl*RRl 

CALL  YLIN{RP,l,0E*O5,RP, 0.0, 0.01 
IF (  CLDF61  .EQ.  0.0  )  GO  TO  21 

***  GOT  HERE  FOR  CLOUDS,  DAY  OR  NIGHT  «*•»*•»*****»♦**♦**»«•****♦ 
FOR  POINT  C,  SET  LATITUDE  AND  LONGITUDE  IN  POSITN  COW«N  AND 
ALSO  GET  EARTH-CENTERED  CARTESIAN  COORDINATES. 

IF  POINT  V  IS  AT  L2-KM  ALTITUDE,  POINT  C  IS  AT  POINT  V. 

C12LAT  •  OETLAT  I  C12L0N  *  DETLON 

RC(1)  -  RVfl)  S  RC(2)  *  RV{?)  i  RC(3)  *  RV{3) 

IF(  DETALT  ,£Q.  C12ALT  )  GO  TO  21 

***  GOT  HERE  FOR  CLOUDS,  DAY  OR  NIGHT,  2KN[ I , JBAND)  .GT.  12.0  **** 
CALL  A6AGEO(OALTC«.P,D2-D£TlAT1OETLON,AZI,ALPHAC,CALTCN,CCLAT. 
t  C12L0N) 

C12LAT  «  P1D2  -  CCLAT 

CALL  GE0XYZ(C12AlT.C12lAT  C1210N.RC! I  ),RC( 2),RC(3) ) 

CALL  VI I N(RC. 1 .0£*O6,RC, 0.0,0.01 
CONTINUE 

SET  FILPOS  FOR  CALI  TO  TRANS. 

FILPOS  PLAYS  NO  ROLE  IF  TRNSOPT  ,EQ.  TRUE  AND  (AS  SHOULD  BE 
THE  CASE)  ONE  USES  THE  SANE  SPECTRAL  LISTS  AS  ARE  USED  BY 
TRAN SB  IN  PREPARING  TAPOTUTMTE.  HOWEVER, IF  TRNSOPT  .EQ. 
FALSE.  FILPOS  IS  USED  TO  ACHIEVE  NECESSARY  REMINDS  OF  TAPOT 
AND  AVOID  UNNECESSARY  REMINDS. 

FILPOS  -  I.0E*04 

START  LOOP  OVER  WAVENUMBERS. 

NWAVEJ  »  NWAVEf JSANO) 

DO  58  L » 1, NMAVE J 
UP  ■  l 

THE  VARIABLES  UKl  AND  JKNJKL,  NOT  USED  IN  THE  GRC  VERSION, 

ARE  USED  IN  THE  SAI  YERS'ON  TO  FACILITATE  PRINT  STATEMENTS 
IJKL  •  1  ♦  J  ♦  K  *  L 
IKMJKL  *  !YM  +  J  ♦  f.  *  L 

ZLAN  .  1  .OE»OA/WW(L) 

MDL  *  MW(l)  -  0.5*OW{L) 

MDH  *  MW(Ll  +  0.5*DW( L . 

CALL  SURRAC' 2,NSN,0D,S'CLRX,1 IP,i3P,RAP,LlP, ZLAN.O  .RAD.UPS.UPPS, 

S  UCS.LIPCS' 

NOM  HAVE  «T  POINT  P  ON  THE  EARTH’S  SURFACE  THE  E*1 TTEO 
RADIANCE  PAT  1)  AND  (IF  ILiAY-1  AND  IDAYV-l)  THE  {UNATTENUATED' 
RE^LEfTEC  RADIANCE  OF  SOLAF  RADIATION  RAD(2'  AND  THE  PATH 
PARAMETERS  UP${  IT,N,I )  AND  UPPSIIT.N.l)  FOR  TH:  INCOMING  SOLAR 
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UPWELL 

61 1 

UPWELL 

61* 

322 


cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cccc 

cc 

cc 

ccc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

a 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

ccc 

cc 

cc 


cc 

cc 

cc 


RAY.  ALSO  H'tVE  AEROSOL  TR ANSMJTTANCE  (TASP(L')  THROUGH  A'  =  50L 
two*  FOR  RATH  fro*  s  to  R,  WHICH  WILL  BE  USED  LATER.  ALSO 
HAVE  AT  POINT  f  THE  PATH  PARAMETERS  UCS(IT,Nl  AND  UPCSflT.V 
FOR  THE  INCOMING  SOLAR  RAY  AND  THE  AEROSOL  TRANSMITTANCE 
(TASCfL)l  THROUGH  R1RSOL  CO**AON  FOR  RATH  S  TO  C,  ALSO  USED 
LATER,  the  PATH  PARAMETERS  ARE  COWUTED  CNlT  FOR  L*l,  BUT 
TASPfL>  AND  TASCU!  ARE  COMPUTED  FO®  L-l.NWAVEJ.  WE  WILL  SOON 
GET  SUM  OF  fl<  ATTENUATED  RADIANCE  EMITTED  FROM  SURFACE  AND 
(21  ATTENUATED  ATMOSPHERIC  EMISSION  BETWETN  POINTS  V  AND  P. 
TEMPORARILY  USE  UPRAO(K.L)  FOR  THIS  SI*  WHICH  IS  INDEPENDENT 
OF  AZIMUTH. 

I F(  K  .GT.  11  GO  TO  * 

NEED  CALL  TRNSCO  ONLY  ON  FIPST  WAVENUMBER  BECAUSE  TRNSCO 
INTERNALLY  LOOPS  OVER  THE  WAVENLMBER  LIST. 

IF (  L  .GT.  1  )  GO  TO  27 

***  GOT  HERE  FOR  DAY  OR  NIGHT.  REGARDLESS  Of  CLOUDS  *****-»••**♦** 
FOR  SOME  APPLICATIONS  IT  IS  DESIRABLE  TO  HAVE  SUBROUTINE 
UPWElL  RESULTS  CORRESPONDING  TO  Z*“*C.O.  EVEN  THOUGH  the 
ROUTINE  WAS  NOT  ORIGINALLY  DESIGNED  TO  BE  CALLED  WITH  ZNM-O. 

TO  CIRCUMVENT  THIS  DIFFICULTY,  WE  DEVELOP  A  PSEUOO  7ERO- 
ALTITUDE  ALGORITHM  WHICH  EXPLOITS  THE  FEATURE  OF  SUBROUTINE 
STEP  WHEREIN  IT  DOES  NOT  COMPUTE  PATH  ELEMENTS  LESS  THAN  10 
METERS  IN  LENGTH.  THUS.  IF  THE  TOTAL  PATH  IS  LESS  THAN  10 
METERS.  THEN  SUBROUTINE  STEP  SETS  NC  TO  ZERO.  WE  DETECT  SUCH 
A  CONDITION  BY  SETTING  A  NEW  VARIABLE  NCNC  EO'JAL  TO  NC  AFTER 
the  DOUBLE  CALL  TO  SUBROUTINE  STEPS  IN  SUBROUTINE  TT'.NSCO  AND 
CARRYING  NCNC  TO  UPWELL  VI*  QMCNC  COFtON  f KNOWN  ONLY  T0  TRNSCO 
AND  UPWSLLl.  WE  MUST  ALSO  RECOGNIZE  THAT  SUBROUTINE  ATHIAD 
NORMALLY  PERFORMS  TWO  OPERATIONS  FOR  (NC.GT.ll  WHICH  ARE  NO’ 
PERFORMED  FOR  {NC.LT.2 ) .  THESE  OPERATES  ARE  (II  REWINDING 
LTWTE  AND  (?)  ZEROING  THE  SECOND  HALVES  OF  TH£  U  AND  UP 
ARRAYS.  THUS.  FOR  (NC.EO.OS.  WE  WANT  TO  (AND  00'  PERFORM 
THESE  TWO  OPERATIONS  HERE  IN  UPWELL.  SUBROUTINE  TRNSCO.  FOR 
(HC-LT.2I.  WILL  RETURN  ZERO  FOR  THE  AIR-PATH  RADIANCE 
(BKGNO  B 1 1 NB 1 1 )  AND  UNITY  FOR  THE  AIR-PATh  TRANSMITTANCE 
f TRANS  BI( MB  1)1.  THESE  VALUES  ARE  PRECISELY  THE  VALUES 
APPROPRIATE  for  the  altitude  E DUALLING  ZERT,  VAL’O  OF  COURSE 
FOR  ALL  NADIRS  AND  AZIKJTHS.  Th'JS,  THE  PSEUDO  ZERO-AlTIT’jOf 
ALGORITHM  NEED  BE  EXETCISED  ONLY  FOR  THE  FIRS’  NADIR  AND  THE 
FIRSt  AZIHITH.  TO  PROCEED  WITH  THC  PSEUOO  ZERO-ALTITUDE 
ALGORITHM.  WE  SELECT  AN  ALYIT'JDE  ZF“  LESS  THAN  10  METERS,  SA» 
ONE  METER  -  0.001  AM.  WE  ALSO  PRETEND  ‘HAT  THE  PATH  LEWGTM 
NEVER  EXCEEDS  10  METERS,  REGARDLESS  OF  THE  NADIR  ANGLE, 
PROVIDED  IT  DIP  NOT  00  SO  FOR  THC  FIRST  NADIR.  THUS,  WE 
DECREE  THAT  TRNSCO  SHALL  NOT  BE  CALLED  FOR  (O.GT.ll  IF  THF 
PATH  LENGTH  WAS  LEGS  THAN  10  METERS  FOR  0*1, 

IF (  J  .GT.  ]1  GO  TC  23 

FOLLOWING  call  TO  TRNSCO  OCCL*S  FOR  I.GE.I.  J-K-l«l. 

TRNSCO' S  ARGiJMENT -LIST  DISTANCES  MU5T  BE  IN  CM. 

CALL  TRNSCO!  RY,  RP,  RR,  LB'NT.  RADSW  ' 

Iff  NCNC  .GT.  1  1  GO  TO  25 

SINCE  WE  ARE  SEELING  RESULTS  FOR  ZXM*O.D,  PERFORM  Tut  TWO 
ABOVE-DESCRIBES  OPERATIONS  NORMALLY  PERFORMED  BY  SUBRC.^INE 

ATYR!  AD. 


UPWELL 

615 

UPWEl: 

61® 

UPWELl 

61  7 

UPWELl 

61 S 

UPWELL 

619 

UPWELL 

620 

UPWELL 

621 

UPWELL 

62? 

UPWELL 

®?3 

UPWELL 

6?4 

U°WELL 

625 

UPWELL 

625 

UPWELL 

627 

UPWELL 

62? 

UPWELl 

6?o 

UPWELL 

6  JO 

UPWElL 

6J1 

UPWELL 

63? 

UPWELL 

633 

UPWELL 

63A 

UPWELL 

635 

UPWELL 

636 

UPWELL 

637 

UPWELL 

638 

UPWELL 

63w 

UPWELL 

640 

UPWELL 

641 

UPWELL 

64? 

UPWELL 

64  3 

UPWELL 

644 

UPWELL 

645 

UPWELL 

646 

UPWELL 

647 

UPWELL 

648 

UPWELL 

644 

UPWELL 

650 

UNWELL 

661 

UP  WE'  L 

65? 

UPWELL 

653 

UPWELL 

654 

L'PWEu 

655 

UPWELL 

656 

UPWELL 

65' 

UPWELL 

658 

UpWELL 

6S« 

UP  WE 

660 

UPWELL 

66! 

UPWElL 

66? 

UPWELL 

663 

UPWELL 

664 

UPWELL 

665 

I'pwELL 

66® 

L'PWELL 

66’ 

UPWELL 

66? 

UPWELL 

660 

UP-ELL 

6  ’0 

UPWELL 

6". 

RSRSRS"  RRS3RR 


22  rewind  ltkte 

CALL  WIT  (  -10O,  0.,  Ufl.1,2)  ) 

CALL  WIT  {  -100,  0.,  UP(l.l,2)  ) 

SO  TO  25 

23  IF (  NCNC  .ST.  1  )  GO  TO  24 
60  TO  22 

CC  FOLLOWING  CAL-  TO  TRNSOO  000*'.  FOR  I.SE.2,  J.GE.2,  X-l-1. 

CC  TRNSCO’S  ARGIMENT-LIST  DISTANCES  HOST  BE  IK  CM. 

2 A  CALL  TRNSCD(  RV.  RP,  RP,  LBIKT,  RADSW  ) 

25  CONTINUE 

a  WE  ALSO  HEED  TO  PRESERVE  PATH  PARAWTERS  FOR  PATH  P  TO  V  IK 

CC  ARRAYS  UPV  AND  UPPV. 

CALL  WIT  (  100,  U  (1,1,2),  U  PY) 

CALL  WIT  (  100,  UP(1.1.2).  UPPV) 
k*ITE(6,10?S) 

1025  FORMAT  (1H0,45X,41H*  *  *  PATH  PARAMETERS,  POINT  P  TO  V  »  ♦  ‘/45X,» 
S(FROM  SUBROUTINE  UPWELL,  FORMATS  1025,1027)*/2X, *TEMPERATUPE/SPECI 
IE5.  ({U  PV(N,N),K.l,NSPECS).t**1.2)*> 

«ITE(6,1026)  ((M,  (U  PV(M.N),N-1,NSPECS)}.M-1,2) 

1026  FORMAT  (2X, I3.1P10E12.4) 

WITE(6,1027) 

1027  FORMAT  (lNO. IX, ‘TEMPERATURE/ SPECIES.  ({UPPV(M.N).»-1.KSPECS),M*1 

S.2)‘) 

WITE(6,102S)  ((M,  (UPPV(M,N).N-1,»SPECS)),M*1,2) 

FOR  PATH  P  TO  V.  PRESERVE  TAPY(L),  TT?V(U,  ANO  A£PV(L> 
(L*1,MWAVEJ)  WHICH  ARE  DERIVED  FROM  DATASET-B1 .  SEE 
SUBROUTINES  TRNSCO  AND  ATMAAD  FOR  COMMENTS  REGARDING  TEWORARY 
USE  OF  WORD-3  OF  DATASET-81  FOR  AEROSOL  TRANSMITTANCE . 

LX  -  0 
LINT  .  LBINT 

26  CALL  PREV  (  UNT.NB1  ) 

IF (  NB1  .EQ.  0  )  GO  TO  27 
LX  -  LX  ♦  1 

IF (  lX  .GT.  10  )  GO  TO  27 
TTPV(LX)  *  Q(II31«6) 

AEPV(LX1  -  Q(»8I*4)/DW{LX) 

Q(NfiI+4)  «  0. 

TAPV(LX)  •  Q(NB1*7) 

I0(NBI*7)  -  0 
GO  TO  26 
V  CONTINUE 

THE  NEXT  STATEFCNT  PROVIDES  THE  ABOVE-*  NT  ION  ED  SUM 
(TEMPORARILY  CALLED  UPRAD(K,l))  Of  (1)  EARTH’S  SURFACE 
RADIFNCE  RAO! 1 )  MULTIPLIED  BY  THE  TOTAL  TRANSMITTANCE  TIPV(L) 
BETWEEN  °CINTS  P  ANO  V  AND  (21  THE  AT*! SPHERIC  EMISSION 
AEPV(l)  BETWEEN  POINTS  V  AND  P.  THE  DO-28  LOOP  REC0GNI7ES 
THIS  SUM  IS  A2IHUTHALLY  INDEPENDENT. 

UPRAD(K.L)  ■  RAO(l)«n?V(L)  ♦  AFPY(l' 

IF (  MA2I  .EQ.  1  )  60  TO  29 
00  28  WX-2.NA2I 
UPRAD(m.L)  •  UPSADU.L) 

28  CONTINUE 
25  CONTINUE 

!F(  IJTL  ,E0.  4  )  «NUTE(6,100) 

100  FORMAT  (1H1,4»X,43H*  *  *  OTPUT  FROM  SUBROUTINE  UPWELL  *  *  *) 


UPWEIL 

672 

UPWELL 

673 

UPWELL 

674 

UPWELL 

67S 

UPWELL 

676 

UPWELL 

677 

UPWELL 

678 

UPWELL 

679 

UPWELL 

680 

UPWELL 

o31 

UPWELL 

68? 

UPWELL 

683 

UPWELL 

684 

UPWELL 

685 

UPWELL 

686 

UPWEU 

687 

UPWELL 

698 

UPWELL 

6B9 

UPVELL 

690 

UPWELL 

691 

UPWELL 

692 

UPWELL 

693 

UPWELL 

694 

UPWELL 

69S 

UPWELL 

696 

UPWELL 

697 

UPWELL 

698 

UPWELL 

699 

UPWEU 

700 

UPWELL 

701 

UPWELL 

702 

UPWELL 

703 

UPWELL 

704 

UPWELL 

705 

UPWELL 

7C6 

UPWELL 

707 

UPWELL 

708 

UPWELL 

709 

UPWELL 

710 

UPWELL 

711 

UPWELL 

71? 

UPWELL 

713 

UPWELL 

714 

UPWELL 

715 

UPWELL 

716 

UPWELL 

717 

UPWELL 

718 

UPWELL 

719 

UPWELL 

720 

UPWELL 

721 

UPWEIL 

722 

UPWELL 

723 

UPWELL 

724 

UPWELL 

725 

UPWELL 

726 

UPWELL 

727 

UPWELL 

728 

1F(  IJICL  .EQ.  4  )  WRITE(6,101) 

UPWELL 

725 

101 

FORMAT  (1H0.1X.107H  I  J  K  L  WDL  WDH  Z 

UPWELL 

730 

SLAM  RA0(1)  TTPV  AEPV  TAPV  ) 

UPWELL 

731 

*UTE(6,102)  I , J,K,L,WDL,WDH, ZLAM,RA0(  1 ) ,1TPV(L) . AEPV(L) ,TAPV(L) 

UPWELL 

73? 

10?  FORMAT  (2X,4I3,1P7(E14.5)1 

UPWELL 

733 

30 

CONTINUE 

UPWELL 

734 

CCCC 

UPWELL 

735 

CC 

UPRAD  IS  OUR  ANSWER  IF  IDAYV=0  AND  IF  NO  CLOUDS  ARE  INCLUDED. 

UPWELL 

736 

IF (  CLDFG1  .EQ.  0.0  )  GO  TO  36 

UPWELL 

737 

ccc 

UPWELL 

738 

CC 

***  GOT  HERE  FOR  CLOUDS,  DAY  NIGHT  *♦««*»*»»*»* 

UPWELL 

739 

CC 

PREPARE  TO  CALL  NCM  SUBROUTINE  CLDWT  TO  GET  THE  NCDSET-MEMBER 

UPWELL 

740 

CC 

ARRAYS  FOR  WEIGHTS  CORRESPONDING  TO  THE 

UPWELL 

741 

CC 

VARIOUS  CLOUD  CONFIGURATIONS  OR  SETS  (WT),  AND,  AT  12-KM 

UPWELL 

74? 

CC 

ALTITUDE  (POINT  C)  ALONG  THE  PATH  FROM  POICT  P  TO  POINT  V,  THE 

UPWELL 

743 

CC 

TOP-CLOUD  EMISSION  RADIANCES  (EMISS)  AND  (IF  IDAYV-1 1  THE 

UPWELL 

744 

CC 

TRANSFER  COEFFICIENTS  (TRANS)  FOR  THE  TOP-CLOUD  REFLECTION 

UPWELL 

745 

CC 

OF  THE  SOLAR  RADIATION. 

UPWELL 

746 

CC 

WT(  I ) ,  FOR  ANY  OF  THE  10  LOCATION- SEASON  AVERAGED  STATISTICAL 

UPWELL 

747 

CC 

CLOUD  MODELS  (KMODEL-1,10) .  IS  THE  PROBABILITY  THAT  (A)  THE 

UPWELL 

748 

CC 

CLOUD-CONFIGURATION  SET  INDICATED  BY  THE  INDEX  I  OCCURS  AND 

UPWELL 

749 

CC 

(B)  THE  DETECTOR  LOS  AT  ZENITH  ANGLE  CHI  INTERSECTS  THE  CLOUD- 

UPWELL 

750 

CC 

CONFIGURATION  SET.  THE  PROBABILITY  OF  THE  DETECTOR'S  LOS 

UPWELL 

7S1 

CC 

INTERSECTING  CLOUDS  IS  SUH(WT(I))  (M.1DX-1). 

UPWELL 

75? 

CC 

UPWELL 

753 

CC 

BEFORE  PROCEEDING  TO  CALL  SUBROUTINE  CLDWT,  WE  COMPUTE  THE  AIR 

UPWELL 

754 

CC 

EMISSION  BETWEEN  POINTS  C  AND  V  (ARCVA( IKM, J, L )) 

UPWELL 

755 

CC 

AND  THE  AIR  TRANSMITTANCE  (BOTH  MOLECULAR  AND  AEROSOL)  FROM 

UPWELL 

756 

CC 

POINT  C  TO  POINT  V.  THE  TOTAL  TRANSMITTANCE  IS  TTCV  AND  THE 

UPWELL 

757 

CC 

AEROSOL  TRANSMITTANCE  IS  TACV.  ALL  OF  THESE  OUANTITIES  ARE 

UPWELL 

758 

CC 

INDEPENDENT  OF  AZIMUTH,  SO  THEY  NEED  BE  COMPUTED  ONLY  FOR  R-l. 

UPWELL 

759 

IF (  ZKM(I.JBAND)  .CT.  12.0  )  GO  TO  31 

UPWELL 

760 

IF (  (  J  .GT.  1  )  .OR.  (  K  .GT.  1  )  )  GO  TO  33 

UPWELL 

761 

AECV(L)  »  0.0 

UPWELL 

76? 

TTCV(L)  -  1.0 

UPWELL 

763 

TACV(L)  *  1.0 

UPWELL 

764 

IF(  L  .GT.  1  )  GO  TO  33 

UPWELL 

765 

CC 

ZERO  ARRAYS  PRESERVING  PATH  PARAMETERS  TOR  PATH  V  TO  C.  NEED 

UPWELL 

766 

cc 

BE  DONE  ONLY  ONCE  FOR  ZKM(I.JBAND)  *  12.0  . 

UPWELL 

767 

CALL  XMIT  (-100,  0.,  U  CV  ) 

UPWELL 

768 

CALL  XMIT  (-100,  0.,  UPCV  ) 

UPWELL 

769 

GO  TO  33 

UPWELL 

770 

31 

CONTINUE 

UPWELL 

771 

IF {  (  K  .GT.  1  )  .OR.  (  L  .GT.  1  )  )  GO  TO  33 

UPWELL 

772 

cc 

FOLLOWING  CALL  TO  TRNSCO  OCCURS  FOR  CLDFLG.EQ.l, 

UPWELL 

773 

cc 

ZXM(I,OBANO) .GT.12.0,  J.GE.l,  K»L*1  . 

UPWELL 

774 

CALL  TRNSCO (  RV,  RC,  RC,  LBINT,  RADSW  ) 

UPWELL 

775 

cc 

WE  ALSO  NEED  TC  PRESERVE  PATH  PARAMETERS  FOR  PATH  C  TO  V  IN 

UPWELL 

776 

cc 

ARRAYS  UCV  AND  UPCV. 

UPWELL 

777 

CALL  XMIT  (  100,  U  (1,1,2),  U  CY) 

UPWE!  L 

778 

CALL  XMIT  (  100,  UP(1,1,2),  UPCV) 

UPWELL 

779 

WRITE(6.1031) 

UPWELL 

780 

1031 

FORMAT  (1H0.46X.41H*  *  *  PATH  PARAMETERS,  POINT  C  TO  V  •  *  V47X,* 

UPWELL 

781 

I(FROM  SUBROUTINE  UPWELL,  FORMATS  1031 , 1033) */2X , ‘TEMPERATURE /SPEC I 

UPWELL 

78? 

JES.  ( (U  CY(M,N) ,N*1 .NSPECS) ,M-1 ,2)*) 

UPWELL 

783 

WRITE(6,1026)  ( (M.  <0  CV(M.N) .N-l.NSPECS) ) ,M-1.2) 

UPWELL 

784 

WRITE(6,1033) 

UPWELL 

785 

3?5 


1033 

FORMAT  (1HC ,  IX,  *TEMPi'0AT'JRE/ SPECIES.  ((UPCV(M,N),N-1,NSPECS)  ,M«1 

UPWELL 

786 

1,2)*) 

UPWELL 

787 

WRITE(6,!T,&)  ((M,  {'JFCV(M.« ) ,N*1,NSPECS)) ,M»1,2) 

UPWELL 

788 

CC 

UPWELL 

789 

cc 

FOR  PATH  C  TO  V,  PRESERVE  TACV(L),  TTCV(L),  AND  AECV(t.) 

UPWELL 

790 

CC 

(L-l.NWAVEJ)  WHICH  ARE  DER1VE0  FROM  DATASET-BI .  SEE 

UPWELL 

791 

cc 

SUBROUTINES  TRNSCO  ANO  ATMRAD  FOR  COMMENTS  REGARDING  TEMPORARY 

UPWELL 

792 

cc 

USE  OF  WORD-8  OF  DATASET-BI  FOR  AEROSOL  TRANSMITTANCE. 

UPWELL 

793 

LX  *  0 

UPWELL 

794 

LINT  *  LB I NT 

UPWELL 

795 

32 

CALL  PREV  (  LINT.NB!  ) 

UPWELL 

796 

IF (  NBI  ,EQ.  0  )  GO  TO  33 

UPWELL 

797 

IX  -  LX  +  1 

UPWELL 

798 

IF (  LX  .GT.  10  )  GO  TO  3? 

UPWELL 

799 

TTCV(LX)  *  QiNBI+6) 

UPWELL 

BOO 

AECY(LX)  *  0(NBI+4)/OW(LX) 

UPWELL 

801 

Q(NBI+4)  *  0. 

UPWELL 

802 

TACV(I.X)  -  Q(NB!+7) 

UPWELL 

803 

ICHNBI+7)  «  0 

UPWELL 

B04 

GO  TO  32 

UPWELl 

805 

33 

CONTINUE 

UPWELL 

806 

cc 

UPWELL 

807 

IF(  IKMJKL  .EQ.  4  )  WRITE(6,103) 

UPWELL 

808 

103 

FORMAT  (1H0.1X,*  I  J  K  L  ZLAM 

UPWELL 

809 

1  TTCV  AECV  TACV*) 

UPWELL 

810 

URITE(8,104)  I,u,K,L.ZLAM,TTCV(L),AECV(L),TACV(L) 

UPWELL 

811 

104 

FORMAT  ( 2X,4I 3.28X .1PE14.5, 14X,3( E14.5) ) 

UPWELL 

812 

CC 

UPWELL 

813 

IF(  K  .GT.  1  )  GO  TO  34 

UPWELL 

814 

cc 

A£CV(L)  IS  ’^DEPENDENT  OF  AZIMUTH,  SO  WE  PRESERVE  IT  WITH  A 

UPWELL 

815 

cc 

NOTATION  TO  DENOTE  IT  IS  THE  AZIMUTHAL  AVERAGE  FOR  THE 

UPWELL 

816 

cc 

CURRENT  VALUES  OF  IKM,  J,  AND  L. 

UPWELL 

817 

arcva; ikm,u,l)  •  aecv(l) 

UPWELL 

818 

34 

continue 

UPWELL 

819 

cc 

UPWELL 

820 

cc 

IN  ORDER  THAT  SUBROUTINE  TRANSF  IN  THE  NCM,  CALLED  BY 

UPWELL 

821 

cc 

SUBROUTINE  CLOWT,  WILL  KNOW  WHETHER  OR  NOT  THE  SUN  IS  ABOVE  OR 

UPWELL 

822 

cc 

BELOW  THE  HORIZON,  SET  JTFLAG  IN  THE  FLAGS  COHON  (USED  IN  THE 

UPWELL 

823 

cc 

NCM  AND  INCLUDED  HERE  IN  SUBROUTINE  UPWELL). 

UPWELL 

824 

ITFLAG  -  0 

UPWELL 

825 

IF (  IOAYV  .EQ.  1  )  ITFLAG  *  1 

UPWElL 

826 

CALL  CLOWT(ZLAM,CHID) 

UPWELL 

827 

cc 

SUBROUTINE  CLOWT  HAS  PROVIOED,  THROUGH  COMMON  CLDWT,  THE 

UPWELL 

828 

cc 

ARRAYS  WT,  TRANS.  ANO  EMISS,  OF  LENGTHS  IDX,  IDX-1,  AND  IDX-1, 

UPWELL 

829 

cc 

RESPECTIVELY.  IDX  EQUALS  160  FOR  A  FULL  SET  OF  159  CONFIG¬ 

UPWELL 

830 

cc 

URATIONS  AND  IS  LESS  FOR  A  RESTRICTED  SET. 

UPWELL 

831 

cc 

UPWELL 

832 

cc 

TO  FACILITATE  COMPUTING  THE  RADIANCE  DISTRIBUTION  FUNCTION 

UPWELL 

833 

cc 

RESULTING  FROM  THE  STATISTICAL  TREATMENT  OF  NATURAL  CLOUDS, 

UPWELL 

834 

cc 

START  FORMING  A  NEW  RADIANCE  DISTRIBUTION  FUNCTION(UPRADC ) 

UPWELL 

835 

cc 

AND  CORRESPONDING  WElGHTStWTC 1 .  IF  NCDSET  IS  THE  NUMBER  OF 

UPWELL 

836 

cc 

STATISTICAL  CLOUD  SETS,  WITH  A  MAXIMUM  OF  159,  FOR  KMODEl* 
1,10,  THEN  THE  LENGTH  (II)  OF  THE  ARRAYS  UPRADC  AND  WTC  WILL 

UPWELL 

837 

cc 

UPWELL 

838 

cc 

BE  II*NCDSET+1  IF  IDAYV*0  OR  II*NCD5ET+?  IF  IDAYV-1. 

UPWELL 

839 

cc 

(THIS  STATEMENT  DOES  NOT  INCLUDE  THE  ZERO-VALUE  MEMBERS  ADDED 

UPWELL 

840 

cc 

(AFTER  STATEMENT  LABEL  55)  FOR  INTERPOLATION  PURPOSES.) 

UPWELL 

841 

cc 

UPWELL 

84? 

326 


cc 

TO  FACILITATE  ASSESSING  THE  RELATIVE  IMPORTANCE  OF  EMISSION 

UPWELL 

843 

cc 

AND  REFLECTION  CONTRIBUTIONS,  PRESERVE  THE  EMISSION  COMPONENT 

UPWELL 

844 

cc 

OF  UPRADC  IN  ANOTHER  ARRAY  IUPRDC1). 

UPWELL 

845 

N COSET  ■  IDX-1 

UPWELL 

84fi 

SUMWTC  *  0.0 

UPWELL 

847 

00  35  M=1 .NCOSET 

UPWELL 

848 

cc 

MULTIPLY  THE  SPECTRAL  RADIANCE  FROM  THE  NCM,  EXPRESSED  IN 

UPWELL 

849 

cc 

UNITS  OF  MATTS  /  (KM**2  SR  MICRON),  BY  1.0E-14*(ZLAM**2)  TO 

UPWELL 

850 

cc 

OBTAIN  WATTS  /  (CM«2  SR  CM-1). 

UPWELL 

851 

cc 

ALSO  INCLUOE  TRANSMITTANCE  BETWEEN  POINTS  C  AND  V. 

UPWELL 

85? 

UPRADC (M)  «  (1.0E-14  *  ZLAH**?)  *  EMISS(M)  *  TTCV(L) 

UPWELL 

853 

UPROCl(M)  *  UPRADC (M) 

UPWELL 

854 

WYC(M)  -  WT'M) 

UPWELL 

855 

SUMWTC  *  SUMWTC  +  WTC(M) 

UPWELL 

856 

35 

CONTINUE 

UPWELL 

857 

II  *  NCOSET+1 

UPWELL 

858 

cc 

AT  THIS  POINT,  II  WILL  NORMALLY  BE  ISO. 

UPWELL 

859 

cc 

UPWELl. 

860 

cc 

NOW  USE  FACT  THAT  RADIANCE  AT  POINT  V  DUE  TO  AIR  EMISSION 

UPWELL 

861 

cc 

BETWEEN  POINTS  V  AND  P  CAN  BE  BROKEN  INTO  TWO  PORTIONS... 

UPWELL 

862 

cc 

AEPV(L)  =  AECV(L)  +  AEPC(L)*TTCV(L) 

UPWELL 

863 

cc 

THUS  A£PC(L)*TTCV(L)  *  AEPV(L)  -  AECV(L) 

UPWELL 

864 

cc 

HENCE  WE  NEED  TO  SUBTRACT  AECV(L)  FROM  UPRAD(K.L)  IN  ORDER  FOR 

UPWELL 

865 

cc 

UPRADC! II)  TO  CONTAIN  THE  (ATTENUATED)  AIR  EMISSION  BETWEEN 

UPWELL 

866 

cc 

POINTS  P  AND  C. 

UPWELL 

867 

UPRADC! I I )  •  UPRAO(K.L)  -  AECV(L) 

UPWEI L 

868 

UPRDCl(II)  ■  UPRADC! I I ) 

UPWELL 

869 

cc 

UPWELL 

870 

cc 

WE  NEED  THE  MEAN  PROBABILITY  OF  A  CLOUD-FREE  LOS  FROM 

UPWELL 

871 

cc 

POINT  P  TO  POINT  V  (AT  ZENITH  ANGLE  CHI  CORRESPONDING  TO  NADIR 

UPWELL 

87? 

cc 

ANGLE  BETA.  AS  NOTED  BEFORE,  THE  PROBABILITY  OF  THE 

UPWELL 

873 

cc 

DETECTOR'S  LOS  INTERSECTING  CLOUDS  IS  SUM(WT(1))  (1=1, IDX-1). 

UPWELL 

874 

cc 

HENCE,  WE  TAKE  ( 1 . -SUM( WT( ! ) ) )  AS  THE  DESIRED  PROBABILITY  OF  A 

UPWELL 

875 

cc 

CLOUD-FREE  LOS,  CFPV. 

UPWELL 

876 

CFPV  *  1.  -  SUMWTC 

UPWELL 

877 

WTC(II)  *  CFPV 

UPWELL 

878 

cc 

THIS  VTC  IS  THE  ONE  OBTAINING  FOR  NIGHT.  FOR  DAY,  WTC  IS 

UPWELL 

8’9 

cc 

RESET  .lrTER  LOOP  DO-52. 

UPWELL 

880 

ccc 

UPWELL 

881 

cc 

IF  I0AYV=1,  MUST  ADO  IN  CLOUD-REFLECTED  SOLAR  RADIATION, 

UPWELL 

882 

cc 

AFTER  ADDING  IN  SURFACE -REFLECTED  SOLAR  RADIATION. 

UPWELL 

883 

cc 

*»*  GOT  HERE  FOR  CLOUDS,  DAY  OR  NIGHT  **♦*•».*..**»♦*••••******«» 

UPWELL 

884 

Ir  (  IDAYV.EQ.O  )  GO  TO  55 

UPWELL 

885 

ccc 

UPWELL 

886 

cc 

**•  GOT  HERE  FOR  CLOUDS, OAT  *»»**********«****♦*♦**♦*****♦••»**»*»• 

UPWELL 

887 

GO  TO  37 

UPWELL 

888 

ccc 

UPWELL 

889 

36 

CONTINUE 

UPWELL 

800 

cc 

*«  GOT  HERE  FOR  NO  CLOUDS,  DAY  OR  NIGHT  »***♦**.**♦*♦*«»*******+» 

UPWELL 

891 

cc 

IF  IDAYV*1,  MUST  ADO  IN  SURFACE-REFLECTED  SOLAR  RADIATION. 

UPWELL 

89? 

IF{  IDAYV.EQ.O  )  GO  TO  58 

UPWELL 

893 

ccc 

UPWELL 

894 

37 

CONTINUE 

UPWELL 

895 

cc 

***  GOT  HERE  FOR  DAY,  WITH  OR  WITHOUT  CLOUDS  **«**♦*♦•♦*•**•****** 

UPWELL 

R96 

cc 

EARLIER,  SUBROUTINE  TRNSCO  CALLED  SUBROUTINE  PATH  FOR  THE  PATH 

UPWELL 

897 

cc 

FROM  V  TO  P  AND  WE  SAVEO  THE  PATH  PARAMETERS  UHT.N,?)  AND  UP( 

UPWELL 

898 

cc 

IT.N ,2)  AS  UPV(IT.N)  AND  UPPV(IT.N).  NOW  ADD  PATH  PARAMETERS 

UPWELL 

899 

327 


cc 

FOR  SEGMENTS  SP  AND  PV.  NEED  BE  DONE  ONLY  FOR  K«L«1,  BUT  THEY 

UPWELL 

900 

cc 

HIST  BE  SAVED  IN  USPV  AND  UPSPV  ARRAYS. 

UPWELL 

901 

IF (  K  .GT.  1  )  GO  TO  42 

UPWELL 

90? 

IF (  L  ,GT.  1  )  GO  TO  41 

UPWELL 

903 

DO  40  NN=1, NSPECS 

UPWELL 

904 

DO  40  LL-1,2 

UPWELL 

90S 

ccc 

UPWELL 

906 

cc 

ONLY  TWO  TEMPERATURES  (SINCE  SHELLS  LIMITS  THE  ATMOSPHERIC 

UPWELL 

907 

cc 

TEMPERATURE  TO  300  DES  K)  ARE  NEEDED  FOR  THE  AMBIENT 

UPWELL 

908 

cc 

ATMOSPHERE,  BUT  NTEMP  MUST  BE  CCT  TO  10  AND  NOT  TO  2  TO  BE 

UPWELL 

909 

cc 

CONSISTENT  WITH  THE  DIMENSIONING  OF  THE  U  AND  UP  ARRAYS  IN 

UPWELL 

910 

cc 

SUBROUTINE  TRANS.  THE  FIRST  HALVES  OF  THE  U  AND  UP  ARRAYS 

UPWELL 

9’] 

cc 

WERE  ZEROED  IN  TRNSCO.  TRANS  (STATEMENT  LABELED  30)  WILL 

UPWELL 

912 

cc 

DETECT  THE  ZERO  VALUES  OF  U  AND  UP  FOR  TEMPERATURE- INDEXES  3 

UPWELL 

913 

cc 

THROUGH  10  AND  WASTE  LITTLE  TIME  IN  COMPUTING  THE 

UPWELL 

914 

cc 

TRANSMITTANCE  FOR  ZERO  VALUES  Of  THE  PATH  PARAMETERS. 

UPWELL 

915 

ccc 

UPWELL 

916 

U  SPV(LL.NN)  -  U  PV(LL.NN)  +  U  PS(LL,NN,1) 

UPWELL 

917 

UPSPV(LL.NN)  -  UPPV(LL.NN)  ♦  UPPS(LL,NN,1 ) 

UPWELL 

918 

40 

CONTINUE 

UPWELL 

919 

WRITE(6.10«0) 

UPWELL 

920 

1040  FORMAT  (1H0.42X ,48H*  *  *  PATH  PARAMETERS,  SUN  TO  POINT  P  TO  V  *  * 

UPWELL 

921 

J*/45X,*(FROM  SUBROUTINE  UPWELL.  FORMATS  1040,1042)*/2X,*TEMPERATUR 

UPWELL 

922 

SE/SPECIES.  ((U  SPV(M.N) ,N»1 .NSPECS) ,M-1,2)*) 

WRITE(6,1026)  ((M,  (U  SPV(M.N) ,N-1, NSPECS) ) ,M*1 .2) 

UPWELL 

923 

UPWELL 

924 

WRITE(6,1042) 

UPWELL 

925 

104? 

FORMAT  (1H0,1X,*TEMPERATURE/SPECIES.  ((UPSPV(M.N),N-  ,NSPEC$),M= 

UPWELL 

926 

*1.2)*) 

UPWELL 

927 

WRITE(6, 1026 )  <(M,  (UPSPV(M, N),N*1, NSPECS) ).M«1. 2) 

UPWELL 

928 

41 

CONTINUE 

UPWELL 

929 

cccc 

UPWELL 

930 

CC 

ENTRY  TRANS1  IN  SUBROUTINE  TRANS  IS  PROVIDED  12/29/78  TO 

UPWELL 

931 

CC 

AVOID  CONFLICT  IN  SUBROUTINE  UPWELL  BETWEEN  THE  ARRAY  TRANS 

UPWELL 

93? 

CC 

IN  CO  WON  CLOVfr  AND  THE  CALL  TO  SUBROUTINE  TRANS. 

UPWELL 

933 

CC 

NOTE... WE  ARE  CALLING  SUBROUTINE  TRANS  WITH  THE  ARRAY* 

UPWELL 

934 

cc 

USPV( 10,10)  AND  UPSPV(IO.IO)  WHICH  IS  SATISFACTORY  FOR 

UPWELL 

935 

cc 

SUBROUTINE  TRANS'  CURRENT  USE  OF  M  -  1  .  IN  GENERAL. 

UPWELL 

936 

cc 

SUBROUTINE  TRANS  EXPECTS  ARRAYS  U(IT,M,2)  AND  UP(IT,N,2)  WHEN 

UPWELL 

937 

cc 

BEING  CALLED  WITH  M«l. 

UPWELL 

938 

CALL  TRANS1(  NTEMP.  1.  USPV.  UPSPV,  FK,  WDL,  WDH,  TAU,  ABC. 

S  TMSPV(L),  TRN50PT,  FUPOS  ) 

UPWELL 

939 

UPWELL 

940 

cccc 

UPWELL 

941 

cc 

TRANS  HAS  RETURNED  THE  TOTAL  MOLECULAR  TRANSMITTANCE  TMSPV(L) 

UPWELl 

94? 

cc 

FOR  THE  TOTAL  PAIR  ( SP+PV) ,  WITH  ACCOUNT  OF  NSPECS  SPECIES. 

UPWELL 

943 

cc 

UPWELL 

944 

cc 

GET  TOTAL  TRANSMITTANCE  BY  INCLUDING  AEROSOLS. 

UPWELL 

945 

cc 

USE  AEROSOL  TRANSMITTANCE  TASP(L)  FROM  SUBROUTINE  SURRAD  FOR 

UPWELL 

946 

cc 

PATH  SP  WITH  AEROSOL  TRANSMITTANCE  TAPV(L)  FROM  SUBROUTINE 

UPWELL 

947 

cc 

TRNSCO '$  CALL  TO  SUBROUTINE  ATMRAD  FOR  PATH  PV  TO  GET  THE 

UPWELL 

948 

cc 

AEROSOL  TRANSMITTANCE  FOR  THE  TOTAL  PATH  SPV-( SP+PV). 

UPWELL 

949 

TTSPV(L)  -  TMSPV(L)  *  (TASP(L)  *  TAPVlL)) 

UPWELL 

950 

cc 

NOW  HAVE  TOTAL  MOLECULAR  AND  AEROSOL  TRANSMITTANCE  FOR 

UPWELL 

951 

cc 

SURFACE-REFLECTED  SOLAR  RAY. 

UPWELL 

95? 

4? 

CONTINUE 

UPWELL 

953 

cc 

UPWELL 

954 

cc 

IN  FOLLOWING  EXPRESSION,  ONLY  RAD(2)  MAY  DEPENO  ON  AZIMUTH, 

UPWELL 

955 

cc 

WHICH  IT  WILL  FOR  NON-LA*ERTIAN  SURFACE  MATERIALS  (MSM.GT.  1 ) . 

UPWELL 

956 

328 
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UPRAD(K.L)  •  UPRAD(K.L)  +  TTSPV(L)*RAD(2) 

CC  HOW  HAVE  TOTAL  UPWELLING  RADIANCE  DIRECTED  FROM  POINT  P 

CC  TO  POINT  V  (WITHOUT  ANY  CLOUDS),  THE  FIRST  TERM  BEING  THE  SUM 

CC  Of  THE  ATTENUATED  GROUND-SURFACE  EMISSION  AND  AIR  EMISSION 

CC  BETWEEN  POINTS  P  AND  V  AND  THE  SECOND  TERM  BEING  THE 

CC  ATTENUATED  SURFACE-REFLECTED  SOLAR  RAY. 

3 F (  IJKL  ,£Q.  4  )  WRITE(6,IOS) 

105  FORMAT  (1H0.1X.*  IJKL  ZLAM 

$  RAD( 2)  TTSPV  TMSPV  TASP*) 

WITE(6,106)  I,J.K.L,ZLAM,RAD(2),TTSPV(L),TMSPV(L).TASP(L) 

106  FORMAT  (2X,4I3,28X,1P5(E14.5)) 

IF (  CLDFG1.EQ.0.0  )  GO  TO  58 

CCC 

CC  ***  GOT  HERE  FOR  DAY,  WITH  CLOUDS  ******************************** 
CC  WE  MUST  CONVERT  THE  TRANSFER  COEFFICIENTS  TRANS  INTO 

CC  RADIANCES  FOR  THE  CLOUD-REFLECTED  SOLAR  RADIATION.  TO  DO  SO, 

CC  WE  NEED  THE  SOLAR  SPECTRAL  1RRADIANCE  E  (WATTS/(CK**2  CM-1 ) ) 

CC  (NORMAL  TO  THE  PATH  TO  THE  SUN)  AT  THE  12-KM  ALTITUDE  POINT 

CC  ON  THE  V-TO-P  PATH.  HERE  WE  SHALL  USE  THE  VALUE,  SOLIRR(L)-E, 

CC  PREVIOUSLY  OBTAINED  BY  A  CALL  TO  SUBROUTINE  SOLRAD  FROM 

CC  SUBROUTINE  SURRAD  AND  AVAILABLE  TWOl'GH  SOlARP  COMMON. 

CC 

CC  WE  ALSO  INCLUDE  AIR  TRANSMITTANCE  (TTSCV(L) )  ABOVE  12-KM 

CC  ALTITUOE,  ALONG  THE  PATH  FROM  S  TO  C  TO  V.  TTSCV(L)  IS  GIVEN 

CC  BY  THE  PRODUCT  OF  THE  MOLECULAR  TRANSMITTANCE  (TMSCV(L))  AND 

CC  THE  AEROSOL  TRANSMITTANCE  (TASC(L)*TACV(L) ) . 

CC  TMSCV(L)  WILL  8E  COMPUTED  BY  SUBROUTINE  TRANS,  GIVEN  THE  PATH 

CC  PARAMETERS  USCV  AND  UPSCV.  FROM  TRNSCO'S  CALL  TO  PATH  WE  HAVE 

CC  THE  PATH  PARAMETERS  U(IT,N,2)  AND  UP(IT,N,2)  (WHICH  WE  SAVED 

CC  AS  UCV(IT.N)  ANO  UPCV(IT.N)  FOR  THE  PATH  FROM  POINT  V  TO  POINT 

CC  C.  THE  PATH  PARAMETERS  UCS(IT.N)  AND  UPCS(IT.N)  WERE  OBTAINED 

CC  WITH  THE  CALL  TO  SUBROUTINE  SURRAD. 

CC  ADD  THE  PATH  PARAMETERS  FOR  SEGMENTS  SC  AND  CV.  NEED  BE  DONE 

CC  ONLY  FOR  K-L-l.  BUT  THEY  MUST  BE  SAVED  IN  USCV  AND  UPSCV 

CC  ARRAYS. 

IF (  K  -GT.  1  )  GO  TO  50 

IF(  L  .GT.  1  )  GO  TO  45 

DO  44  NN-l.NSPECS 
DO  44  LL-1,2 

U  SCV(LL.NN)  -  U  CV(LL,NN)  ♦  U  CS(ll,NN) 

UPSCV(LL.NN)  *  UPCV(LL.NN)  ♦  UPCS(LL.NN) 

44  CONTINUE 
WRITE(6,1044) 

1044  FORMAT  (IH0.42X.48H*  *  •  PATH  PAR  ALTERS,  SUN  TO  POINT  C  TO  V  *  * 
$*/44X.*(FR0M  SUBROUTINE  UPWELL,  FORMATS  1044,1046)V2X,*TEMPERATUR 
SE/SPFCIES.  ((U  SCV(M.N) ,N*I ,NSPECS),M»1,2)*) 

WRITE(6,1D26)  ((M,  (U  SCV(M,N),N-1,NSPECS) ) ,N»1 ,2) 

WRITE(6,1046) 

1046  FORMAT  (1H0.1X,*TEMPERATURE/SPECIES.  ( (UPSCV[H, N) .N-l.NSPECS) ,M- 

»,?)*) 

WR ITE(6 ,1026)  ((M,  (UPSCV(M,N),N“1,NSPECS)),N*1,2) 

45  CONTINUE 

CC  NOTE... WE  ARE  CALLING  SUBROUTINE  TRANS  WITH  THE  ARRAYS 

CC  USCV(IO.IO)  AND  UPSCV(IO.IO)  WHICH  IS  SATISFACTORY  FOR 

CC  SUBROUTINE  TRANS'  CURRENT  USE  OF  M  •  1  .  IN  GENERAL, 

CC  SUBROUTINE  TRANS  EXPECTS  ARRAYS  U{ IT.N.2)  AND  UP(IT,N,2)  WHEN 

CC  BEING  CALLED  WITH  M*l. 
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UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 
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UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 
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----- 


957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 

974 

975 

976 

977 

978 

979 

980 

981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 
1000 
1001 
1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 
1011 
1012 
1013 
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CALL  TRANSM  NTEMP,  1,  USCV,  UPSCV.  FK.  WDL,  WDH,  TAU.  ABC. 

1  TXSCVfL),  TRNSOPT,  FILPOS  ) 

CC  TRANS  HAS  RETURNED  THE  TOTAL  MOLECULAR  TRANSMITTANCE  TMSCV(L) 

CC  FOR  THE  TOTAL  PATH  (SC*CV).  USE  AEROSOL  TRANSMITTANCE  TASC(L) 

CC  FROM  SUBROUTINE  SURRAO  FOR  PATH  SC  WITH  AEROSOL  TRANSMITTANCE 

CC  TACV(L)  FROM  TRNSCO'S  CALL  TO  SUBROUTINE  ATNKAD  FOR  PATH  CV  TO 

CC  GET  THE  AEROSOL  TRANSMITTANCE  FOR  THE  TOTAL  PATH  SCV-(SC+CV). 

TTSCV(L)  *  TMSCViL)  *  ( TASCfL ) *TACV ( L) ) 

CC  NOW  HAVE  TOTAL  MOLECULAR  AND  AEROSOL  TRANSMITTANCE  FOR  CLOUO- 

CC  REFLECTED  SOLAR  RAY. 

I F (  IKMJKL  .£0.  A  )  WRITEf 6, 107) 

107  FORMAT  (1H0.1X,*  I  J  K  L  ZLAM 

J  TTSCV  TMSCV  TASC*) 

WR1TE(6,104)  I, J.K.L.ZLAM.TTSCVfL) .TMSCV(L) ,TASC(L) 

CCC 

50  CONTINUE 

CC  NOW  GET  A  CONTRIBUTION  TO  THE  TOTAL  UPWELLING  RADIANCE 

CC  DIRECTED  FROM  POINT  C  TO  POINT  V,  THE  FIRST  TERM  BEING  THE 

CC  CLOUD-SURFACE  EMISSION  ATTENUATED  BETWEEN  POINTS  C  AND  V  AND 

CC  THE  SECOND  TERM  BEING  THE  ATTENUATED  CLOUD-REFLECTED  SOLAR 

CC  RAY. 

CO  5?  M-l.NCDSET 

UPRADC(M)  *  UPRADC(M)  +  SOLIRR(L)  *  TRANS(M)  •  TTSCV(L) 

52  CONTINUE 


CC 

CC 

CC 

CC 

CC 

CC 

CC 


CC 

CC 

CC 

CC 

CC 

CC 

CC 

CC 

CC 

CC 

CC 

CC 

CC 


AT  THIS  POINT,  II  WILL  NORMALLY  BE  160  . 

SINCE  WE  ARE  ABOUT  TO  INCLUOF  THE  TWO-LEG  CFLOS.  WE  MUST 
MULTIPLY  THE  PROBABILITY  OF  THE  (NIGHTTIME)  ONE-LEG  CFLOS  BY 
THE  PROBABILITY  OF  NOT  HAVING  THE  SECOND  (DAYTIME)  LEG. 

WTC(II)  =  CFPV  •  (  1.  -  CFPS  ) 

INCLUDE  TWO-LEG  CFLOS 
II  =  II  ♦  1 

AT  THIS  POINT.  II  WILL  NORMALLY  BE  161  . 

UPRDCl(Il)  -  UPRADC ( II -1) 

UPRADC(II)  =  UPRADC(II-l)  ♦  RA0(2)  *  TTSPV(L) 

WTC(II)  *  CFPS  *  CFPV 

***  GOT  HERE  FOR  ClOUOS,  DAY  ************************************* 
55  CONTINUE 

GOT  HERE  FOR  CLOUDS.  DAY  OR  NIGHT 

SORT  THF  RADIANCE  ARRAY  UPRADC  IN  INCREASING  ORDER  AND  CARRY 
ALONG  THE  ARRAYS  UPRQC1  AND  WTC.  BEFORE  SORTING,  AUGMENT  THE 
THREE  ARRAYS  WITH  THE  MEMBERS  UPRADC (11*1)  «  0.0.  UPRDCKII+l) 
•  0.0,  AND  WTC { I 1*1 )  •  0.0,  RESPECTIVELY.  DOING  THIS  ALLOWS 
SUBROUTINE  LINEAR  TO  INTERPOLATE  WITHIN  ITS  GIVEN  ARRAY  IF  THE 
WEIGHT  OF  THE  NORMALLT  SMALLEST  MEMBER  EXCEEDS  THE  SMALLEST 
0,10)  FOR  WHICH  AN  INTEGRAL -DISTRIBUTION  VALUE 


II 


FRACTILE  (NOW 
IS  REQUESTED. 

II  *  1 

AT  THIS  POINT 
DAY. 

UPRAOC(II)  -  0.0 
WTC ( II)  *  0.0 
UPRDCl(II)  *  0.0 
IF (  (  I KM  .GE.  1 


II  WILL  NORMALLY  BE  161  FOR  NIGHT  AND  162  *0R 


1055  FORMAT  («0 


)  .AND.  (  I KM  ,LE.  3  )  )  WR ITE( 6 ,1055) 

( UPRADC ( N) .UPRDCl(N) ,WTC(N) ,N*1 , I! ) 

BEFORE  SORTING,  WE  HAVE  (FOR  M-1.16?)  THE  TRIPLETS  UP 


UPWELL 

1014 

UPWELL 

1015 

UPWELL 

1016 

UPWELL 

1017 

UPWELL 

1018 

UPWELL 

1019 

UPWELL 

1020 

UPWFLL 

1021 

UPWELL 

1022 

UPWELL 

1023 

UPWELL 

1024 

UPWELL 

1025 

UPWELL 

1026 

UPWELL 

1027 

UPWELL 

1028 

UPWELL 

1029 

UPWELL 

1030 

UPWELL 

1031 

UPWELL 

1032 

UPWELL 

1033 

UPWELL 

1034 

UPWELL 

103S 

UPWELL 

1036 

UPWELL 

1037 

UPWELL 

1038 

UPWELL 

1039 

UPWELL 

1040 

UPWELL 

1041 

UPWELL 

1042 

UPWELL 

1043 

UPWELL 

1044 

UPWELL 

1045 

UPWELL 

1046 

UPWELL 

1047 

UPWELL 

1048 

UPWELL 

1048 

UPWELL 

1050 

UPWELL 

1051 

UPWELL 

105? 

UPWELL 

1053 

UPWELL 

1054 

UPWELL 

1055 

UPWELL 

1056 

UPWELL 

1057 

UPWELL 

1058 

UPWELL 

1059 

UPWELL 

1060 

UPWELL 

1061 

UPWELL 

1062 

UPWELL 

1063 

UPWELL 

1064 

UPWELL 

1066 

UPWELL 

1066 

UPWFLL 

1067 

UPWELL 

1063 

UPWELL 

1068 

UPWELL 

1070 
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IR  ADC  ( M ) ,  UPfi  DC  1  ( H ) ,  WTC  ( M )  *  /  ( 5X ,  1 P9  El  2 . 4 ) ) 

UP  WELL 

1071 

CALL  S0RTLJ(  UPRADC,  UPRDC1,  WTC,  11,  -1  ) 

UPWELL 

1072 

'"C 

SUM  THE  WEIGHTS  AND  NORMALIZE  THE  SUM  TO  UNITY. 

UPWELL 

1073 

DO  56  M-2,11 

UPWELL 

1074 

WTC(M)  *  WTC(M)  +  WTC(M-l) 

UPWELL 

1075 

56 

CONTINUE 

UPWELL 

1076 

WTCI1Y  -  1.0/WTCUI) 

UPWELL 

1077 

00  57  M.1.II 

UPWELL 

1078 

WTC(M)  =  WTClIV*WrC(M) 

UPWELL 

1079 

57 

CONTINUE 

UPWELL 

1080 

IF(  (  I KM  .GE,  1  )  .AND.  {  1KM  .IE,  3  )  )  WRITE(6,1056) 

UPWELL 

1081 

i  (UPRADC  (fl)  .UPRDCl  (N)  ,WTC (N) ,N=1, I I) 

UPWELL 

1082 

1056 

FORMAT  (*0  AFTER  SORTING  AND  SUMMING  WEIGHTS,  WE  HAVE  FOR  M=l.l 

UPWELL 

1083 

$62)  THE  TRIPLETS  UPRADC(M),UPRDC1(M).SUMWTC(M)-V(5X,1P9E12.4)) 

UPWELL 

1084 

cc 

INTERPOLATE  TO  OBTAIN  THE  INOICATED  PERCENTILES. 

UPWELL 

1085 

cc 

RESaT  IS  STORED  IN  ftXXX(Y.l). 

UPWELL 

1086 

CALL  LINEAR  0. 10, R010(K,L ),WTC  .UPRADC ,  II  ) 

UPWELL 

1087 

CALL  LINEAR  (  0. 25, R025(K ,L) FTC, UPRADC ,  II  ) 

UPWELL 

1088 

CALL  LINEAR  (  0. 50,R050(K.L ) ,WTC, UPRADC , I I  ) 

UPWELL 

1089 

CALL  LINEAR  (  0, 90,R090(K,L) ,WTC, UPRADC, I I  ) 

U°WELL 

1090 

R 1 00 ( K , L )  *  UPRADC { II) 

UPWELL 

1091 

cc 

STATEMENT  58  IS  FOR  WAVENUMBER  LOOP  ON  INDEX  L 

UPW! LL 

1092 

58 

CONTINUE 

UPWELL 

1093 

CC 

STATEMENT  60  IS  FOR  A2IKJTH  LOOP  ON  INDEX  K 

UPWELL 

1094 

60 

CONTINUE 

UPWELL 

1095 

CCC 

UPWELL 

1096 

CCC 

WRITE  OUT  UPRAD(K.L)  FOR  CURRENT  VALUE  OF  !  I  AND  JJ. 

UPWELL 

1097 

CCC 

WITE  OUT  RXXX(K.L)  FOR  CURRENT  VALUE  OF  II  AND  JJ,  ONLY 

UPWELL 

1098 

CCC 

IF  CLDFG1  *  1.0  . 

UPWELL 

1099 

WRITE(8)  ( (UPRAD(K.l) ,K=1 .NAZI ) ,L-1 .NWAVE J) 

UPWELL 

1100 

I F (  CL0FG1  ,EQ.  1.0  )  WRITE(8)  ( ( (R010(K , L ) ,R0?5(K,L) ,R050(K ,L ) , 

UPWELL 

1101 

S  R090(K ,L) ,R100(K ,L ) ) ,  K-l.NAZt).  L-l.NWAVEj) 

UPWELL 

110? 

CCC 

UPWELL 

1103 

CC 

COMPUTE  AVERAGES  OVER  AZIMUTH  ANGLES  K  AT  WAVENUMBERS 

UPWELL 

1104 

CC 

L-l.NWAVEJ.  NADIR  ANGLE  J,  AND  ALTITUDE  I. 

UPWELL 

1105 

FINAZ  -  1.0/FL0AT(NAZI) 

UPWELL 

1106 

DO  64  L-I.NWAVEJ 

UPWELL 

1107 

sum  -  0.0 

UPWELL 

1108 

DO  62  K-l.NAZI 

UPWELL 

1109 

sum  *  sum  *  uprad(k.l) 

UPWELL 

me 

62 

CONTINUE 

UPWELL 

mi 

UPRADA(  I ,  J.L)  *  FINAZ*SUm 

UPWELL 

m? 

64 

CONTINUE 

UPWELL 

1113 

CCC 

UPWELL 

1114 

IF (  CLDFG1.EQ.0.0  )  GO  TO  70 

UPWELL 

1115 

IF[  IKM  .GT.  6  )  GO  TO  70 

UPWELL 

1116 

CCC 

UPWELL 

1117 

DO  68  L*1,NWAVEJ 

UPWELL 

1118 

R010KJ  -  0.0 

UPWELL 

1119 

R025KJ  ■  0.0 

UPWELL 

1120 

R050KJ  -  0.0 

UPWELL 

1121 

R090KJ  -  0.0 

UPWELL 

112? 

RIOOKJ  •  0.0 

UPWELL 

1123 

DO  66  K-l.NAZI 

UPWELL 

1124 

R010KJ  «  R010KJ  ♦  ROIO(K.L) 

UPWELL 

1125 

R025KJ  -  R025KJ  ♦  R025(K.l) 

UPWELL 

UZ6 

R050KJ  -  ROSOKJ  +  R050(K.L) 

UPWELL 

1127 
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R090KJ  -  F090KJ  ♦  R090(K,L) 

UPWELl 

1128 

RIOCKJ  ■  RIOOKO  +  RIOO(K.L) 

UPWELL 

1129 

66  CONTINUE 

UPWELL 

1130 

CC  IKM  »  INDEX  FOR  ALTITUDES  EQUAL  TO  OR  GREATER  THAN  12. C  KM 

UPWELL 

1131 

CC  THEN  CLOUDS  ARE  INCLUDED. 

UPWELL 

1132 

ROlOAl IKM.J.L)  •  FINAZ*R010KJ 

UPWELL 

1133 

R025A( IKN, J,L)  *  FINAZ*R025KJ 

UPWELL 

1134 

R050A( IKM.J.L)  *  FINAZ*ROSOKJ 

UPWELL 

1135 

R090A(IKM.J,L)  *  FINAZ*R090KJ 

UPWEL' 

1136 

RIOOAf IKM.J.L)  «  FINAZ*R100KJ 

UPWELL 

1137 

68  CONTINUE 

UPWELL 

1138 

CC  STATEMENT  70  IS  FOR  NADIR  LOOP  ON  INDEX  J 

UPWELL 

1139 

70  CONTINUE 

UPWEL L 

1140 

CCC 

UPWELL 

1141 

CC  COMPUTE  AVERAGES  OVER  NADIR  ANGLES  J  AT  HAVENUWERS 

UPWELL 

114? 

CC  L-l.NWAVEJ  AND  ALTITUDE  I. 

UPWELL 

1143 

F1NAD  -  1.0/FL0AT(NNADIR ) 

UPWELu 

1144 

DO  74  L-l.NHAVEJ 

UPWELL 

1145 

sum  «  o.o 

UPWELL 

1146 

DO  72  J-l.NNADIR 

UPWELL 

n«’ 

sum  *  sum  +  uprada(i.o.l) 

UPWELL 

1149 

72  CONTINUE 

UPWELL 

1145 

UPRAON(I,L,JBAND)  «  FINAD*SUm 

UPWELL 

1150 

74  CONTINUE 

UPWELL 

1151 

CCC 

UPWELL 

1152 

IF(  CLDFG1 . EO.0.0  )  GO  TO  80 

UPWELL 

1153 

I F (  IKM  ,GT.  6  )  GO  TO  80 

UPWELL 

1154 

CCC 

UPWELL 

1155 

DO  78  L-l.NHAVEJ 

UPWELL 

1156 

ARCVKJ  -  0.0 

UPWELL 

1157 

RO10KJ  -  0.0 

UPWELL 

1158 

R025KJ  -  0.0 

UPWELL 

1159 

R050KJ  »  0.0 

UPWELL 

1160 

R090KJ  -  0.0 

UPWELL 

1161 

R100KJ  -  0.0 

UPWELL 

1162 

DO  76  J-l.NNADIR 

UPWELL 

1163 

ARCVKJ  -  ARCVKJ  +  ARCVA( IKM.J.L) 

UPWELL 

1164 

R010KJ  -  R010KJ  ♦  R010A( IKM.J.L) 

UPWELL 

1165 

R025KJ  -  R025KJ  ♦  R02SA(IKM, J.L) 

UPWELL 

1166 

ROSOKJ  •  ROSOKJ  ♦  R050A( IKM.J.L ) 

UPWELL 

1167 

R090KJ  *  R090KJ  +  R090A( IKM. J,L ) 

UPWELL 

1168 

R100KJ  -  R100KJ  ♦  R100A(  IKM.J.L) 

UPWELL 

1169 

76  CONTINUE 

UPWELL 

1170 

ARCVN(IKH.L)  *  FINAD*ARCVKJ 

UPWELL 

1171 

ROION(IKM.L)  •  FINAD*R010KJ 

UPWELL 

1172 

R025N( IKM.L)  *  FINAO*R025KJ 

UPWELL 

1173 

ROSON(IKM.L)  •  FINAD*RO50K J 

UPWELL 

1174 

R090N(IKM,L)  -  FINAD*R090KJ 

UPWELL 

1175 

RIOON(IKM.L)  ■  FINAD-R100KJ 

UPWELL 

1176 

CCC 

UPWELL 

1177 

CCC  THE  GRC  VERSION  INSERTS  THE  FOLLOWING  RE- SETTING  OF 

UPRADNII, 

UPWELL 

1178 

CCC  L.JBANO)  FOR  ALTITUOES  .GE.  12  KM  AND  IF  CLOUDS  ARE 

INCLUDED. 

UPWELL 

1179 

CCC  UPRADN< I. L.JBANO)  ■  R05ON(JKM,L)  ♦  ARCVN( IKM, 

,L) 

UPWELL 

1180 

CCC 

UPWELL 

1181 

78  CONTINUE 

UPWELL 

1182 

CC  STATE  PC  NT  80  IS  FOR  ALTITUDE  LOOP  ON  INDEX  I 

UPWELL 

1183 

80  CONTINUE 

UPWFIL 

1184 

RETURN 

UPWELL 

1185 

END 

UPWELL 

1186 
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SUBROUTINE  VEIN  (  X,  A,  Y,  B,  Z  ) 

VEIN 

2 

c 

VEIN 

3 

c 

*VLIN*  FORMS  THE  LINEAR  COMBINATION  OF  TWO  VECTORS. 

VLIN 

4 

clj 

SUBROUTINE  VEIN  RETURvs  X(l-3)  -  A*Y(l-3)  +  B*Z(l-3). 

VEIN 

5 

c 

VEIN 

6 

DIMENSION  X(3),  V  f  3 ) ,  Z{3) 

VEIN 

7 

X(l)  -  A  *  Y(1 )  *  3  *  Z(l) 

VLIN 

B 

X(2)  *  A  *  Y(2)  +  B  *  2(2) 

VEIN 

9 

X{3)  -  A  *  Y{3)  *■  B  *  2(3) 

VEIN 

10 

RETURN 

VLIN 

11 

END 

VLIN 

12 

C* 

XMIT 

XMIT 

2 

SUBROUTINE  XMIT  (  LX,  X,  Y  ) 

XMIT 

3 

C 

XMIT 

4 

C 

*XMIT*  COPIES  A  CORE  BLOCK  TO  ANOTHER  LOCATION. 

XMIT 

5 

C 

XMIT 

6 

CLJ 

A  GE  TEMPO  VERSION  OF  THE  6RC  ROUTINE  XMIT  WRITTEN  IN  COMPASS 

XMIT 

7 

CLJ 

LANGUAGE. 

XMIT 

8 

CLJ 

XMIT 

9 

CLJ 

INPUT  PARAMETERS 

XMIT 

10 

CLJ 

ARGUMENT  LIST 

XMIT 

11 

CLJ 

LX  -  LENGTH  OF  ARRAY  X 

XMIT 

12 

CLJ 

X  *  THE  ARRAY  OR  CONSTANT  TO  BE  COPIED  INTO  ARRAY  Y. 

XMIT 

13 

CLJ 

OUTPUT  PARAMETER 

XMIT 

14 

CLJ 

ARGUMENT  LIST 

XMIT 

IS 

CLJ 

Y  *  Ai>  ARRAY,  COPIED  FROM  ARRAY  X  IF  LX.GT.O,  AND  SET 

XMIT 

16 

CLJ 

TO  A  CONSTANT  X{ 1)  IF  LX.LT.O  . 

XMIT 

17 

CLJ 

A  RETURN  OCCURS  IF  LX.EQ.O  OR  IF  THE  ADDRESS  OF  X 

XMIT 

18 

CLJ 

EQUALS  THE  ADDRESS  OF  T. 

XMIT 

19 

DIMENSION  X(l),  Y(1 ) 

XMIT 

20 

IF  (  LX  .IE.  0  j  GO  TO  6 

XMIT 

21 

CLJ 

LOCF,  A  FORTRAN  INTRINSIC  (INTEGER)  FUNCTION,  OBTAINS  THE 

XMIT 

2? 

CLJ 

ADDRESS  OF  A  VARIABLE.  ARRAT  ELEMENT,  OR  ENTRY  POINT  OF 

XMIT 

23 

CLJ 

EXTERNAL  SUBPROGRAM. 

XMIT 

24 

IF  (  LOCF (  X  )  -  LOCF (  T  )  )  3.  5,  1 

XMIT 

?S 

1 

DO  2  1*1, LX 

XMIT 

26 

2 

T(I)  *  X(I) 

XMIT 

27 

GO  TO  5 

XMIT 

28 

CLJ 

THIS  BRANCH  ALLOWS  SHIFTING  THE  FIRST  LX  MEMBERS  OF  ARRAY  X  TO 

XMIT 

29 

CLJ 

START  AT  SOME  MEMBER  WITCH  LIES  WITHIN  THE  FIRST  LX  MEMBERS. 

XMIT 

30 

3 

K  -  LX 

XMIT 

31 

DO  4  1*1, LX 

XMIT 

3? 

Y(K1  *  X (K ) 

XMIT 

33 

4 

K  -  K  -  1 

XMIT 

34 

5 

RETURN 

XMIT 

35 

6 

IF  (  LX  ,EQ.  0  )  RETURN 

XMIT 

36 

LXX  *  -LX 

XW]T 

37 

DO  7  I-l.LXX 

XM|T 

3B 

7 

Y(I)  *  X(l) 

XMIT 

39 

RETURN 

XMIT 

40 

END 

XMIT 

41 
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